Hallo
Hatte mir mit viel Hilfe dieses Makro erstellen lassen-in diesem [xurl=
http://www.supportnet.de|Supportnet - Computer und Internet Forum]Forum[/url] :-)
Nach dem installieren eines neuen Standartdruckers bekomme ich folgende Fehlermeldung:
Laufzeitfehler 1004:
Die Methode Active Printer für das Objekt_Application ist fehlgeschlagen.
Der Anfang von den betroffene Mako sieht so aus
Global rngRoll As Range
Global lngAnzahl As Long
Sub Seriendruck_A()
Application.ScreenUpdating = False
'Druckbereich festlegen
ActiveSheet.PageSetup.PrintArea = "$A$2:$G$10"
'Wo steht Roll-Nummer
Set rngRoll = ActiveSheet.Range("G6")
'Anzahl der zu druckenden Etiketten einlesen
lngAnzahl = ActiveSheet.Range("B1").Value
'Drucken Makro wird aufgerufen
Call drucken
End Sub
Sub drucken()
Dim lngRoll As Long
Dim i As Long
ActiveSheet.Unprotect Password:="neinnein"
'zellbereich anpassen
Range("A2:G10").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
'Uhrzeit aktualisieren
Calculate
'Standarddrucker merken
StdDrucker = Application.ActivePrinter
'Neuen Drucker bestimmen
Application.ActivePrinter = "\\172.30.1.10\PEI-PPB-BLC-001 auf Ne04:"
'1. Roll-Nummer einlsen
lngRoll = rngRoll.Value
'Ausdrucken
For i = 0 To lngAnzahl - 1
'Roll-Nummer aktualisieren
rngRoll.Value = lngRoll + i
Gruß
Hans