Hejsan alla påskfirare !

Jag undra hur man bäst skriver ut en bild till skrivaren, från VB
MVH Peter

testa:


Printer.PaintPicture Picture1.Picture, 0, 0, Picture1.Width, Picture1.Height
Printer.EndDoc

Jag bugar och tackar :=) det fungerade utmärkt.

Hej Peter

Prova nedanstående rader. Gjorde dessa när jag ville skriva ut en bild som har samma mått som framsidan (121,121) mm på en cdskiva. Naturligtvis är det bara att ändra måtten till 150,118 så blir det måtten på cd baksidan.

Lägg koden under en tryckknapp. Satt många timmar innan jag fick till dessa rader.
Hoppas det kan vara till någon hjälp

Vänliga hälsningar
Lasse


Dim x, y, pos As Single

Printer.ScaleMode = 6 'Det är mm.
Printer.PrintQuality = -4 ' Det är hög utskriftskvalitet
Printer.ScaleLeft = -20
Printer.ScaleTop = -10
Printer.PaintPicture imgCdFram.Picture, x - pos, y - pos, 121, 121
Printer.ScaleLeft = 0
Printer.ScaleTop = 0
Printer.Line (20, 10)-Step(121, 0) ' Line rader ritar en linje runt bilden
Printer.Line (20, 10)-Step(0, 121)
Printer.Line (141, 10)-Step(0, 121)
Printer.Line (20, 131)-Step(121, 0)

Printer.EndDoc

Det fungera. PrintQuality var någott nytt för mig
Tack Lasse ! PETER