PictureBox ausdrucken

Programmierung PictureBox, ausdrucken via Printer.PaintPicture
Private objPic As Picture
Private Sub cmdUnload_Click() Bild entladen (wird hier schon in den Eigenschaften
Set objPic = LoadPicture("") geladen).
Set Picture1.Picture = objPic
End Sub
Private Sub cmdPrint_Click() Bild drucken.
Printer.Print "" Drucker initialisieren.
Printer.PaintPicture Picture1.Picture, 500, 450 Koordinaten einstellen (in Twips!).
Printer.EndDoc
End Sub
Private Sub cmdPrintMore_Click() Verteilt den Druck auf mehrere Seiten, falls Bild zu groß.
Printer.Print ""
Printer.PaintPicture Picture1.Picture, 0, 0, , , 0, 0, , Picture1.Height / 2
Printer.NewPage Koordinaten...
Printer.PaintPicture Picture1.Picture, 0, 0, , , 0, Picture1.Height / 2, , Picture1.Height / 2
Printer.EndDoc
End Sub

Mehr Tipps: Endlos laufender Formular-Titel mit Timer

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt