VBA Drucker auf Farbe umstellen
22.04.2021 16:07:46
Andreas
hab unten stehende VBA in meiner Datei, funktioniert auch alles super.
Nun kann der ausgewählte Drucker aber in Farbe und in Schwarz-Weiß drucken.
Wie hinterlege ich das den in der VBA, dass dieses Dokument immer in Farbe gedruckt wird?
Vielen Dank vorab
Gruß Andreas
Sub DruckeBereich()
Dim strDruckerAktiv$, i%, max%, vz%, bz%, sStdDrucker$
sStdDrucker = Application.ActivePrinter
Application.ActivePrinter = "\\SRVADS01.beratex.intranet\Blanko auf Ne05:"
strDruckerAktiv = Application.ActivePrinter
max = Sheets("DQ").Range("AH2").Value
If max If max > 15 Then max = 15
For i = 1 To max
vz = i * 53 - 52: bz = i * 53
Worksheets("Rg. Anschr.").Range("A" & vz & ":R" & bz).PrintOut Copies:=1 'PrintPreview
Next i
Application.ActivePrinter = sStdDrucker
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub