Hallo,
ich brauche mal wieder eure Hilfe. Das ist der VBA-Code:
On Error GoTo Err_Befehl16_Click
Dim stDocName As String
Dim MyForm As Form
Set MyForm = Screen.ActiveForm
stDocName = "frmArbeitsvorbereitung"
DoCmd.SelectObject acForm, stDocName, True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.NAME, False
Exit_Befehl16_Click:
Exit Sub
Err_Befehl16_Click:
MsgBox Err.Description
Resume Exit_Befehl16_Click
Jetzt meine Frage : Kann ich den Druck steuern? Wie z.B. nur Daten drucken oder Querformat und wenn möglich
den Drucker "wechseln" ?
Gruß KlaSur
Die Optionen von DoCmd.PrintOut findest du wie immer in der Hilfe.
Aber deine Wünsche kannst du umsetzen indem du einen Report erstellst, dann hast du alle gewünschten Optionen. Report erstellen ist ja eine Sache von wenigen Minuten.
Zitat von: KlaSur am April 30, 2024, 14:18:58Jetzt meine Frage : Kann ich den Druck steuern? Wie z.B. nur Daten drucken oder Querformat und wenn möglich
den Drucker "wechseln" ?
Einmalig dauerhaft, oder bei jedem Druck dynamisch?
Wenn du für das Form manuell die Druckvorschau öffnest kannst du alle diese Dinge einstellen und sie bleiben dann so dauerhaft gespeichert.
Für die dynamische Änderung zur Laufzeit hat auch ein Formular eine Printer-Eigenschaft.
Ungetestet:
Set Forms(stDocName).Printer = Application.Printers("GewünschterDrucker")
With Forms(stDocName).Printer
.DataOnly = True
.Orientation = acPRORLandscape
End With