Danke, hab ich so gelöst!
17.02.2003 08:11:22
Jan
Sub Druck_Versandliste()Dim seiten1
Dim seiten2
Dim seiten3
Dim seiten4
Dim seiten5
Dim seiten6
Dim seiten7
Dim seiten8
Application.ScreenUpdating = False
If [r27] > 0 Then seiten1 = 1
If [r28] > 0 Then seiten2 = 2
If [r29] > 0 Then seiten3 = 3
If [r30] > 0 Then seiten4 = 4
If [r31] > 0 Then seiten5 = 5
If [r32] > 0 Then seiten6 = 6
If [r33] > 0 Then seiten7 = 7
If [r34] > 0 Then seiten8 = 8
If [r27] > 0 Then
Application.ActivePrinter = "HP LaserJet 4 auf LPT2:"
Sheets("Artikel").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=seiten1, Copies:=1, Collate _
:=True
Sheets("Ladeliste").Select
End If
If [r28] > 0 Then
Application.ActivePrinter = "HP LaserJet 4 auf LPT2:"
Sheets("Artikel").Select
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=seiten2, Copies:=1, Collate _
:=True
Sheets("Ladeliste").Select
End If
If [r29] > 0 Then
Application.ActivePrinter = "HP LaserJet 4 auf LPT2:"
Sheets("Artikel").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=seiten3, Copies:=1, Collate _
:=True
Sheets("Ladeliste").Select
End If
If [r30] > 0 Then
Application.ActivePrinter = "HP LaserJet 4 auf LPT2:"
Sheets("Artikel").Select
ActiveWindow.SelectedSheets.PrintOut From:=4, To:=seiten4, Copies:=1, Collate _
:=True
Sheets("Ladeliste").Select
End If
If [r31] > 0 Then
Application.ActivePrinter = "HP LaserJet 4 auf LPT2:"
Sheets("Artikel").Select
ActiveWindow.SelectedSheets.PrintOut From:=5, To:=seiten5, Copies:=1, Collate _
:=True
Sheets("Ladeliste").Select
End If
If [r32] > 0 Then
Application.ActivePrinter = "HP LaserJet 4 auf LPT2:"
Sheets("Artikel").Select
ActiveWindow.SelectedSheets.PrintOut From:=6, To:=seiten6, Copies:=1, Collate _
:=True
Sheets("Ladeliste").Select
End If
If [r33] > 0 Then
Application.ActivePrinter = "HP LaserJet 4 auf LPT2:"
Sheets("Artikel").Select
ActiveWindow.SelectedSheets.PrintOut From:=7, To:=seiten7, Copies:=1, Collate _
:=True
Sheets("Ladeliste").Select
End If
If [r34] > 0 Then
Application.ActivePrinter = "HP LaserJet 4 auf LPT2:"
Sheets("Artikel").Select
ActiveWindow.SelectedSheets.PrintOut From:=8, To:=seiten8, Copies:=1, Collate _
:=True
Sheets("Ladeliste").Select
End If
Application.ScreenUpdating = True
Sheets("Ladeliste").Select
Range("N14").Select
End Sub