PrintPreviewAndPrint wie im Code STOP
24.01.2022 23:58:46
Siegfried
habe da wieder einmal ein Problem zu welchem ich im WEB leider keine Antwort finden konnte.
Ich kann durch setzen eines Wertes in bestimmten Zellen steuern das beim ausdrucken eines andern Tabellenblattes die Funktion "PrintPreviewAndPrint" zur Prüfung bzw. Anpassung der Druckereinstellungen aufgerufen wird. Erst wenn ich "PrintPreviewAndPrint" über den Pfeil oben links verlasse, sollte der Druckbereich mit den neuen Einstellungen in eine PDF, für welche auch der File-Name bereits übergeben wurde, gedruckt werden.
Dazu verwende ich folgenden Code
If InStr(Range("Regie!E11"), "to PDF") > 0 Then
If Range("Regie!B7") "" Then Call DruBer_Einst("B7")
Application.ActivePrinter = Range("Regie!E11")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=DruName, OpenAfterPublish:=True
Else
If Range("Regie!B7") "" Then Call DruBer_Einst("B7")
ActiveSheet.PrintOut
End If
Befindet sich also nun in Range("Regie!B7") ein Wert wird die
Sub DruBer_Einst aufgerufen
Sub DruBer_Einst(Wert)
ActiveSheet.Unprotect
If Range("Regie!" & Wert) "" Then
Application.CommandBars.ExecuteMso "PrintPreviewAndPrint"
UserForm1.Show vbModeless
End If
If Range("Regie!" & Wert) "" Then Range("Regie!" & Wert).ClearContents
End Sub
Wie kann ich den Code in der "DruBer_Einst" so lange anhalten bis "PrintPreviewAndPrint" verlassen wird.
Dachte die wäre möglich solange die UserForm1 nicht ausgelöst wird, macht er aber leider nicht, sondern erstellt bereits vorher die PDF.
Ich hoffe man kann mir da mal wieder weiter helfen!
Gruß Siegfried