Goeiemorgen,
Dit is mijn code, hoe kan ik ingeven dat dit document in kleur moet afgeprint worden ? printer staat standaard op zwart wit.
Dit is mijn code, hoe kan ik ingeven dat dit document in kleur moet afgeprint worden ? printer staat standaard op zwart wit.
Code:
Sub Printen_Essity()
' Printen order Essity
'selecteer 2e werkblad
Worksheets(2).Activate
'wissen van overbodige kolommen
Range("A:B,E:F,H:I,M:M").Select
Selection.Delete Shift:=xlToLeft
'instellen kolombreedte van kolom B
Columns("B").ColumnWidth = 10
Application.PrintCommunication = False
'printen van titels op elke nieuwe pagina
With ActiveSheet.PageSetup
.PrintTitleRows = ActiveSheet.Rows(1).Address
.Orientation = xlLandscape
.BlackAndWhite = False
End With
Application.PrintCommunication = True
Const MyPrinter As String = "\\S0003634\BE-GEN-SAL002 on Ne03:"
sCurrentPrinter = Application.ActivePrinter
Application.ActivePrinter = MyPrinter
ActiveSheet.PrintOut '
Application.ActivePrinter = sCurrentPrinter
End Sub