Bildschirmdruck anpassen !

[KlaSur]

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

[markusxy]

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.

[PhilS]

Jetzt 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:

Code [Auswählen] Erweitern

Set Forms(stDocName).Printer = Application.Printers("GewünschterDrucker")
With Forms(stDocName).Printer
        .DataOnly = True
        .Orientation = acPRORLandscape
End With