FormToPrinter - Problem 2

[VBMichi]

Hi.

Ich hab mal wieder ein Problem mit "FormToPrinter".
Zur Zeit benutze ich folgenden Code:

Private Sub Command1_Click()
FormToPrinter = True, Hochformat
End Sub
'
'
Private Sub FormToPrinter(Optional ByVal bActiveWindow As Boolean = True, Optional Orientation As Ausrichtung = Hochformat)
'
  Const KEYEVENTF_KEYUP = &H2
  Const VK_MENU = &H12
  Const VK_SNAPSHOT = &H2C
'
  If bActiveWindow Then keybd_event VK_MENU, 0, 0, 0
  keybd_event VK_SNAPSHOT, 0, 0, 0
  keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0
  If bActiveWindow Then keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0
  DoEvents
'
  Printer.Orientation = Orientation
  Printer.PaintPicture Clipboard.GetData, 0, 0, Printer.ScaleWidth, Printer.ScaleHeight, 60, 450, Me.Width - 120, Me.Height - 550
  Printer.EndDoc
End Sub

Die Form wird auch super auf DINA4 vergrößert, nur gibt es da n' kleines Problem:
Die Bilder die auf der Form ausgegeben sind, werden (wie der Rest auch) mega-Pixelig, je kleiner sie sind.
Gibt es ne Möglichkeit das zu unterbinden? Zum Beispiel die Bilder erst dann auf die Form zu geben wenn die Vergrößerung fertig ist?!

Irgendwie so in die Richtung
Das egal wie groß die Bilder vorher waren, sie am Ende "klar" rauskommen.

Gruß,
Michi

PS: Hoffentlich weiß jemand was! *bet*

 

[VBMichi]

Ah: Was ich vergessen hatte zu sagen:

Falls sich das von mir gewünschte nicht mit meinem jetzigen Code "umbauen" lässt dürft ihr selbstverständlich auch Änderungen vornehmen!