Drucken

Forumthread: Drucken

Drucken

14.02.2003 17:24:33

Jan

Hallo,
kennt jemand einen Code für dass!
Wenn in Zelle "A1" 1 steht sollen die Seiten 1 bis 1 gedruckt werden, wenn null drin steht nichts drucken und weiter zur Zelle "A2" wenn 1 steht sollen die Seiten 2 bis 2 gedruckt werden bei null nichts drucken usw..

Danke!

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Drucken

14.02.2003 23:42:59

Herbert
Danke, hab ich so gelöst!

17.02.2003 08:11:22

Jan

Re: Drucken

14.02.2003 23:42:59

Herbert

Hallo jan,
Vielleicht kannst Du dieses Makro anpassen.

Sub Drucken()
Dim seiten
Application.ScreenUpdating = False
    If [a1] = 0 Then
    Exit Sub
    End If

    If [a1] = 1 Then seiten = 1
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=seiten, Copies:=1

       If [a2] = 1 Then seiten = 2
     ActiveWindow.SelectedSheets.PrintOut From:=2, To:=seiten, Copies:=1

Application.ScreenUpdating = True
End Sub

Gruß Herbert

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

Beliebteste Forumthreads (12 Monate)

Forumthread: Drucken

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread