Drucker im Netzwerk ansprechen.
02.11.2005 13:47:42
marc
ich habe ein Problem mit Drucken via Netzwerk.
Bei uns stehen zwei Drucke HP-1200 und HP Color LaserJet 4600.
Der Standard Drucker, der HP-1200 kann nur schwarz/weis drucken.
So muss ich( bei Color-Grafik ) immerwieder manuell den HP-4600 auswählen und
wenn ich mit dem Farbausdruck fertig bin, dann muss ich wieder manuell
den HP-1200 als Standard definieren.
Kann mir jemand bei der automatisierung helfen ?
Wie kann ich in meinem VBA-Code den HP Color LaserJet 4600 ansprechen ?
danke marc...
Private Sub cmdGraphikPrint_Click()
Dim i As Integer
i = MsgBox("Ausgewaehlte Graphik wird gedruckt " & vbCr & vbCr & _
" full color only!!!", vbExclamation, "Druckauftragsinfo")
Worksheets("Pchart").Activate
ActiveSheet.PageSetup.PrintArea = "$A$1:$K$32"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub
Anzeige