ich habe ein Problem beim Ausdruck von Tabellenblättern.
Ich habe ein Makro geschrieben zum Ausdruck von mehreren Blättern. Der Drucker bringt aber die Reihenfolge durcheinander.
Wie bewege ich den Drucker dazu die Reihenfolge einzuhalten.
Das Makro sieht so aus:
Sub Paket_und_Palettenzettel_SIM_LAHN_KO_drucken()
'
' drucken Makro
' Makro am 17.02.2003 von Bocklet aufgezeichnet
'
'
With Sheets("SIM PAL")
If .Range("K1") > 0 Then .PrintOut From:=1, To:=1, Copies:=CInt(.Range("k1"))
End With
With Sheets("SIM PAK")
If .Range("K1") > 0 Then .PrintOut From:=1, To:=1, Copies:=CInt(.Range("k1"))
End With
With Sheets("LAHN PAL")
If .Range("K1") > 0 Then .PrintOut From:=1, To:=1, Copies:=CInt(.Range("k1"))
End With
With Sheets("LAHN PAK1")
If .Range("K1") > 0 Then .PrintOut From:=1, To:=1, Copies:=CInt(.Range("k1"))
End With
With Sheets("LAHN PAK2")
If .Range("K1") > 0 Then .PrintOut From:=1, To:=1, Copies:=CInt(.Range("k1"))
End With
With Sheets("LAHN PAK3")
If .Range("K1") > 0 Then .PrintOut From:=1, To:=1, Copies:=CInt(.Range("k1"))
End With
With Sheets("KOB PAL")
If .Range("K1") > 0 Then .PrintOut From:=1, To:=1, Copies:=CInt(.Range("k1"))
End With
With Sheets("KOB PAK1")
If .Range("K1") > 0 Then .PrintOut From:=1, To:=1, Copies:=CInt(.Range("k1"))
End With
With Sheets("KOB PAK2")
If .Range("K1") > 0 Then .PrintOut From:=1, To:=1, Copies:=CInt(.Range("k1"))
End With
End Sub
Hinweis in K1 ist die Anzahl der zu druckenden Seiten
mfg Gérard