Dialogs(xlDialogPrint) ohne zu Drucken
31.10.2018 08:00:30
Dexter701
ich möchte im wesentlichen eigentlich nur den Druck auf Farbe umstellen, leider reicht es nicht aus mit PageSetup.BlackAndWhite = False zu arbeiten da in meinem Unternehmen die Druckertreiber im Standard die Graustufen aktiviert sind.
Kann ich das Drucken nach dem bestätigen von Application.Dialogs(xlDialogPrint).Show unterbinden?
Bin natürlich auch für andere Ansätze offen :)
Danke vorab!! O365 - 2016
Gruß Marc
Sub NureinTeildavon()
If Not strSchulung Is Nothing Then
zertifikat = wkscatalog.Cells(strSchulung.Row, 5)
Set wkszerti = ThisWorkbook.Worksheets(zertifikat)
wkszerti.Visible = xlSheetVisible
wkszerti.Cells(27, 4) = .Cells(7, 3) ' Datum
wkszerti.PageSetup.BlackAndWhite = False
wkszerti.Select ' das hätte ich natürlich auch gern weg :)
MsgBox "Bitte auf Farbdruck umstellen"
Application.Dialogs(xlDialogPrint).Show ' hier möchte ich nur auf Farbdruck umstellen
For lozeile = 14 To .Cells(Rows.count, 1).End(xlUp).Row
wkszerti.Cells(20, 4) = .Cells(lozeile, 2) & "," & .Cells(lozeile, 3) 'Name
wkszerti.PrintOut ' Erst hier sollen die Dokumente gedruckt werden
Next
wkszerti.Visible = xlSheetHidden
End If
End Sub
Anzeige