imprimer une ligne

Question

Private Sub Command2_Click()
'---------------------------------------------
Dans le code qui suit j'imprime un rectangle avec texaco marquer dedans
Comment faire pour avoir un previeuw avent d'imprimer car sa me fait chaque fois une feuille et de l'encre
Merci pour votre aide

Printer.PaperSize = vbPRPSA4
'---------------------------------------------
Printer.CurrentX = 5
Printer.CurrentY = 5
L = Printer.CurrentX
H = Printer.CurrentY
Printer.ScaleMode = vbMillimeters
Printer.Print
Printer.Font = "Times New Roman"
Printer.Line (L + 50, H + 5)-(L + 140, H + 25), vbBlack, B
'Printer.Line (L + 24, H)-(L + 24, H + 39.5), vbBlack
Printer.FontBold = True
Printer.CurrentX = L + 65
Printer.CurrentY = H + 10
Printer.FontSize = 20
Printer.Print "TEXACO BEN-AHIN"

Printer.EndDoc

ShareVB · Answer

salut

install un imprimante virtuelle PDF :
http://www.local.attac.org/paris11/documents/autres/pdfwrite/pdf.html
http://www.gratuiciel.com/freeware/pc/k9.htm
http://www.webistan.com/~soft/

ShareVB

petiflamand · Answer

Et comment faire pour dessiner les rectangle dans un fichier
???

ShareVB · Answer

salut

ca se fera tout seul vu que c'est une imprimante (virtuelle)....

ShareVB

petiflamand · Answer

mais alors je doit definir la virtuel comme imprimante par defaut????

ShareVB · Answer

salut

pour le debug, c plus simple... de mettre cette imprimante comme par defaut

ShareVB

petiflamand · Answer

Salut merci encore

C'est installer et sa marche nikel

Merci encore

Imprimer une ligne

6 réponses

Discussions similaires