Guten Tag,
bin ein VBA-Dummchen! :-)
Irgendwie mag er mein Makro nicht:
' zum Tabellenblatt wechseln
Sheets("Evaluationsbogen").Select
With Worksheets("Evaluationsbogen")
If .Range("I3") <> "" Then
Do
If .Range("I3") <= .Range("I1") Then
'Wählt den Drucker blanko aus
Dim strPrinter As String
Const cstrPrinter As String = "\\SBS-SERVER.mebino.local\RDS Hannover auf Ne11:"
strPrinter = Application.ActivePrinter
ActiveSheet.PrintOut From:=1, To:=Sheets("Evaluationsbogen").Range("I2").Value, Copies:=1, Preview:=False,
ActivePrinter:=cstrPrinter, Collate:=True
Application.ActivePrinter = strPrinter
.Range("I3") = .Range("I3") + 1
Else
Exit Do
End If
Loop
End If
End With
Hat jemand eine Idee?
Liebe Grüße
Matthias
|