Ich habe ein Vb Programm geschrieben und möchte nun das Hauptformular, sehr bunt mit viel Grafik drauf, ausdrucken und zwar formatfüllend im Querfornmat auf eine Seite.
Ich kann mit common dialogs die Printereinrichtung aufrufen aber er nimmt mir die dort gemachten Formatierungen nicht an. Was mache ich falsch?

Anschliessend mein Code


Private Sub mnuDrucken_Click()
Dim BeginPage, EndPage, NumCopies, i

CdlDatei.CancelError = True ' Cancel auf True setzen
On Error GoTo ErrHandler


CdlDatei.ShowPrinter ' Dialogfeld "Drucken" anzeigen


'Werte vom Dialogfeld abrufen
BeginPage = CdlDatei.FromPage
EndPage = CdlDatei.ToPage
NumCopies = CdlDatei.Copies
For i = 1 To NumCopies

'??????? genau hier fehlt´s wohl auch das Querformat einzustellen?

'Code zum Senden von Daten anden Drucker einfügen

'??????? genau hier fehlt´s wohl

Next i
Exit Sub

ErrHandler: 'Abbrechen gewählt
Exit Sub

End Sub