Bilder im Querformat ausdrucken

[Terminator2]

Hi!
1. Wie kann ich ein Bild aus einer Picture Box im Querformat ausdrucken? Den Code hab ich soweit:

Printer.PaintPicture Form1.Image1.Picture, 10, 10
Printer.EndDoc 'Dokument drucken

2. Wie muss ich den Code verändern, damit das Bild auf die ganze Seite maximiert ausgedruckt wird?

 

[wincnc]

Hallo, versuch´s mal so:

Printer.Orientation = vbPRORLandscape
Printer.PaintPicture Form1.Image1.Picture, 0, 0, Printer.ScaleWidth, Printer.ScaleHeight
Printer.EndDoc 'Dokument drucken

 

[Terminator2]

Danke. Das klappt schon gut. Aber ich glaube nicht, dass das dem Drucker gefallen wird. Wie kann ich die Randbereiche einstellen, dass das Bild zu allen Seiten mindesten 1cm vom Rand entfernt ist?

 

[Terminator2]

So. Da haben wir das nächste Problem. Ich bin da wo ich vorher war. Das Bild soll 1000Pixel von jedem Rand entfernt sein. Aber jetzt ist das Bild wieder so klein wie vorher. hier nochmal der Code:

Printer.Orientation = vbPRORLandscape
Printer.PaintPicture Form1.Image1.Picture, 1000, 1000, Printer.ScaleWidth, Printer.ScaleHeight, 1000, 1000, Printer.ScaleWidth, Printer.ScaleHeight
Printer.EndDoc 'Dokument drucken