Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
216to220
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
216to220
216to220
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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
Anzeige
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


Anzeige
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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige