Hallo,
mit folgendem Code wird bei einem Ausdruck die erste Seite im Hochformat und die Folgeseiten im Querformat ausgegeben.
Funktioniert alles problemlos.
Allerdings möchten meine Kollegen das jetzt direkt als PDF-Datei drucken.
Nur der PDF-Drucker spielt nicht mit.
Der verweigert erfolgreich die Zusammenarbeit.
Der druckt von Anfang bis Ende im Hochformat.
Alle Drucker im System machen das problemlos mit. Auch die Druckvorschau.
Als PDF-Drucker habe ich FreePDF und PDF Creator getestet.
Hat da jemand eine Idee ?
mit folgendem Code wird bei einem Ausdruck die erste Seite im Hochformat und die Folgeseiten im Querformat ausgegeben.
Funktioniert alles problemlos.
Allerdings möchten meine Kollegen das jetzt direkt als PDF-Datei drucken.
Nur der PDF-Drucker spielt nicht mit.
Der verweigert erfolgreich die Zusammenarbeit.
Der druckt von Anfang bis Ende im Hochformat.
Alle Drucker im System machen das problemlos mit. Auch die Druckvorschau.
Als PDF-Drucker habe ich FreePDF und PDF Creator getestet.
Hat da jemand eine Idee ?
VB.NET-Quellcode
- Private Sub Druckdokument_QueryPageSettings(ByVal sender As Object, ByVal e As QueryPageSettingsEventArgs) Handles Druckdokument.QueryPageSettings
- If Seite = 1 Then
- e.PageSettings.PaperSource = Druckdokument.PrinterSettings.PaperSources.Item(cboSeite1.SelectedIndex)
- e.PageSettings.Landscape = False ' Hochformat
- ElseIf Seite > 1 Then 'Wenn Seitenzahl > 1
- e.PageSettings.PaperSource = Druckdokument.PrinterSettings.PaperSources.Item(cboFolgeSeiten.SelectedIndex)
- e.PageSettings.Landscape = True 'Querformat
- end sub
Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „guromu“ ()