Paramétrage impression état access

Signaler
Messages postés
8
Date d'inscription
mercredi 11 juillet 2007
Statut
Membre
Dernière intervention
9 décembre 2011
-
Messages postés
8
Date d'inscription
mercredi 11 juillet 2007
Statut
Membre
Dernière intervention
9 décembre 2011
-
Bonjour,

je voudrais imprimer un état type ticket de caisse... Mon problème est que l'imprimante imprime le ticket avec une hauteur de format A4 (29 cm) quoi qu'il advienne, que le contenu du ticket soit représenter sur 5 cm ou 29 cm...

Y a t il un moyen de paramétrer en vb la hauteur d'impression en fonction du contenu de l'état ???

Merci pour vos réponses

3 réponses

Messages postés
42
Date d'inscription
jeudi 17 juin 2004
Statut
Membre
Dernière intervention
11 septembre 2010

Bonjour,
Ta solution se situe au niveau imprimante :
Taille du papier

Au niveau access :
Taille du papier

Les 2 doivent évidement être identique

A+
Messages postés
1
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
17 février 2009

Salut toofar,


Je penses que tu devrait utiliser une imprimante thermique pour tes impressions. Si tu utilise une imprimante avec un papier au format A4, tu n'a pas le choix; pour l'imprimante, l'impression est consideré comme terminer lorsque la taille du papier configuré est entièrement ejecté après une impression; Mais avec une imprimante thermique, l'impression est consideré comme terminé lorsque le texte envoyé à l'imprimante est completement sortie.


Je te donne un exemple des codes sources qui m'ont aussi aider. Donc c'est pas mon fruit, m'ais autres programmeur, donc remercie le... Assez parler, les voilà :



Enchaînement de 2 directives sur 1 ligne
printer.var1; printer.var2 ' 1 ; enchaîne 2 directives /1 ligne

Changement de gras/non gras sur 1 ligne
Printer.FontBold = False
Printer.Print print1;
Printer.FontBold = True
Printer.Print print2

TEXTE
Printer.print space(x) ' espaces horizontaux
Printer.print impression
Printer.print " " ' saut de ligne (en boucle aussi)
GRAPHIQUE
Printer.CurrentX = c ' Position courante colonne (variable)
Printer.CurrentY = l ' Position courante ligne (variable)
Printer.CurrentX = x
Printer.CurrentY = y
Printer.ScaleMode = x ' Mode de calcul (6 mm, 7 cm)
Printer.DrawWidth = x ' Epaisseur des lignes (variable)
Printer.Line. ' ligne Line(c1, l1) - (c2, l2), couleur

IMPRESSION DE FICHIER D'IMAGE OU D'IMAGE
Printer.ScaleMode = vbCentimeters
PictureX.Picture = LoadPicture(App.Path & "\nom_fic.ext")
Le fichier est mis dans un contrôle PictureBox
Printer.PaintPicture PictureX.Image, Colonne, ligne

Exemples
Trace un cadre autour à 1mm du texte
Printer.Line (14, 34)-(14 + Printer.TextWidth("Coucou") + 2, 35 +
Printer.TextHeight("Coucou") + 2), , B
Trace un cercle de 2cm de diamètre au milieu de la page
Printer.Circle (Printer.ScaleWidth / 2, Printer.ScaleHeight / 2), 10

-*-*-*-*-*-*-*-*-

Dans ton cas d'adresse :

dim qualite as string
dim prenom as string
dim nom as string
dim adresse1 as string
dim edresse2 as string
dim code as string
dim ville as string
dim pays as string
dm i as long

' mise en pmlace des params perso ci-dessus...

for i = 1 to 12
Printer.Print ""
next i
i = 40
Printer.Print space(i) & qualite & " " & prenom & " " & nom
Printer.Print space(i) & adresse1
Printer.Print space(i) & adresse2
Printer.Print space(i) & code & " " & ville
Printer.Print space(i) & pays
Printer.EndDoc
Messages postés
8
Date d'inscription
mercredi 11 juillet 2007
Statut
Membre
Dernière intervention
9 décembre 2011

Vaut mieux tard que jamais...

Merci pour ta réponse TSH ;)