Danke für den Hinweis.
Jetzt sagt er:
Fehler beim Kompilieren:
Erwartet: Listentrennzeichen oder )
Das Makro sieht jetzt so aus:
______
Sub DruckFragebogenBildungsurlaub()
' zum Tabellenblatt wechseln
Sheets("Fragebogen Bildungsurlaub").Select
With Worksheets("Fragebogen Bildungsurlaub")
If LCase$(.Range("M2").Value = "n" Then
.Range("H1").Value = .Range("H1").Value + 1
Do
If .Range("H1") <= .Range("H10") Then
' DruckMagazinblanko
Dim strPrinter As String
Const cstrPrinter As String = "\\Hannover auf Ne11:"
strPrinter = Application.ActivePrinter
ActiveSheet.PrintOut From:=1, To:=1, Copies:=1, Preview:=False, _
ActivePrinter:=cstrPrinter, Collate:=True
Application.ActivePrinter = strPrinter
.Range("H1") = .Range("H1") + 1
Else
Exit Do
End If
Loop
End If
End With
' zum Tabellenblatt Zusammenfassung Bildungsurlaub wechseln
Sheets("Zusammenfassung Bildungsurlaub").Select
' DruckMagazinblanko
ActiveSheet.PrintOut From:=1, To:=1, Copies:=1, Preview:=False, _
ActivePrinter:=cstrPrinter, Collate:=True
End Sub
|