Drucken auf 2 Druckern - V2 | HERBERS Excel Forum

Sub Drucken_auf_zwei_Drucker() ' Drucken_auf_zwei_Drucker Makro ' Makro am 03.02.2013 von * aufgezeichnet Application.ActivePrinter = "HP Photosmart C7200 series auf Ne04:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "HP Photosmart C7200 series auf Ne04:", Collate:=True Application.ActivePrinter = "PDF Druck auf FPP3:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "PDF Druck auf FPP3:" End Sub

Sub Druck_auf_HP_und_PDF() ' Druck_auf_HP_und_PDF Makro ' Makro am 28.07.2013 von JPM aufgezeichnet ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Application.ActivePrinter = "pdfFactory Pro auf FPP3:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "pdfFactory Pro auf FPP3:" End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Faxen() Dim savPrinter As String savPrinter = ActivePrinter ' aktuellen Drucker auslesen ActivePrinter = "WinFax Pro 9.0" ' anderen Drucker einstellen ActiveSheet.PrintOut ActivePrinter = savPrinter ' Drucker wieder zurückstellen End Sub

Sub Faxen() Dim savPrinter As String savPrinter = ActivePrinter ' aktuellen Drucker auslesen ActivePrinter = "HP Photosmart C7200 series" ' anderen Drucker einstellen ActiveSheet.PrintOut ActivePrinter = savPrinter ' Drucker wieder zurückstellen End Sub

Hallo Jean-Pierre,
Fehler 1004 mit der Meldung bedeutet, dass der Name des Druckers nicht gefunden wurde. Warum auch immer?
Mit einem Netzwerksdrucker sollte es auch funktionieren. Ich bin mir aber nicht sicher ob bei einem Netzwerkdtucker das "an NExy" immer gleich ist. Ich hatte auch schon mal einen Fall, in dem diese Zählnummer sich häufig änderte, so dass in einer Schleife die Zählnummern urchprobiert werden mussten.
Nachfolgend ein Beispiel für 2 mal Drucen und 2 Makros zur Anzeige des Namens des aktiven Druckers.
Gruß
Franz

Sub Drucken_01()
' Drucken_01 Makro
Dim strPrinter As String
'Aktiven Drucker merken
strPrinter = Application.ActivePrinter
On Error GoTo Fehler
'Drucken auf Drucker
Application.ActivePrinter = "hp LaserJet 1000 (Kopie 1) auf Ne01:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
'Drucken als PDF
Application.ActivePrinter = "FreePDF auf Ne10:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveSheet.Select               'Hebt die Gruppierung der Blätter auf
Fehler:
If Err.Number  0 Then
MsgBox "Fehler-Nr,: " & Err.Number & vbLf & Err.Description & _
vbLf & "Bitte Name des Druckers im Code prüfen", , "Makro: Drucken_01"
End If
strPrinter = Application.ActivePrinter
End Sub
Sub ShowActivePrinter()
Dim strPrinter As String
strPrinter = Application.ActivePrinter
Debug.Print "Aktiver Drucker: " & strPrinter 'Anzeige im Direktbereich des VBA-Editors
MsgBox strPrinter, vbOKOnly, "Aktiver Drucker"
End Sub
Sub ActivePrinter_Name_in_Zwischenablage()
'Name des aktiven Druckers in die Zwischenablage
'Dieses Makro erfordert im VBA-Editor unter Extras den Verweis auf _
Microsoft Forms 2.0 Library
Dim strPrinter As String
Dim kurz As DataObject
strPrinter = Application.ActivePrinter
Set kurz = New DataObject
kurz.SetText strPrinter:  kurz.PutInClipboard: Set kurz = Nothing
MsgBox strPrinter & vbLf _
& "Druckername kann jetzt aus Zwischenablage eingefügt werden", _
vbOKOnly, "Aktiver Drucker"
End Sub

Sub Drucken_01() ' Drucken_01 Makro Dim strPrinter As String 'Aktiven Drucker merken strPrinter = Application.ActivePrinter On Error GoTo Fehler 'Drucken auf Drucker Application.ActivePrinter = "HP Photosmart C7200 series auf Ne03:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False 'Drucken als PDF Application.ActivePrinter = "FreePDF auf Ne10:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False ActiveSheet.Select 'Hebt die Gruppierung der Blätter auf Fehler: If Err.Number 0 Then MsgBox "Fehler-Nr,: " & Err.Number & vbLf & Err.Description & _ vbLf & "Bitte Name des Druckers im Code prüfen", , "Makro: Drucken_01" End If strPrinter = Application.ActivePrinter End Sub

Sub ShowActivePrinter() Dim strPrinter As String strPrinter = Application.ActivePrinter Debug.Print "Aktiver Drucker: " & strPrinter 'Anzeige im Direktbereich des VBA-Editors MsgBox strPrinter, vbOKOnly, "Aktiver Drucker" End Sub Sub ActivePrinter_Name_in_Zwischenablage() 'Name des aktiven Druckers in die Zwischenablage 'Dieses Makro erfordert im VBA-Editor unter Extras den Verweis auf _ Microsoft Forms 2.0 Library Dim strPrinter As String Dim kurz As DataObject strPrinter = Application.ActivePrinter Set kurz = New DataObject kurz.SetText strPrinter: kurz.PutInClipboard: Set kurz = Nothing MsgBox strPrinter & vbLf _ & "Druckername kann jetzt aus Zwischenablage eingefügt werden", _ vbOKOnly, "Aktiver Drucker" End Sub

Sub Drucken_auf_zwei_Drucker() ' Drucken_auf_zwei_Drucker Makro ' Makro am 03.02.2013 von * aufgezeichnet Application.ActivePrinter = "HP Photosmart C7200 series auf Ne03:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "HP Photosmart C7200 series auf Ne03", Collate:=True Application.ActivePrinter = "pdfFactory Pro auf FPP3:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "pdfFactory Pro auf FPP3:" End Sub

Beliebteste Forumthreads (12 Monate)

Drucken auf 2 Druckern - V2

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread