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