Druck unterbrechen
16.02.2020 20:32:43
Udo
ich habe Etiketten in Bearbeitung, bei denen per Makro die Packstücknummer immer um eins addiert wird. Dieses Etikett wird gedruckt. Danach kommt es wieder zur Addition bis alle Etiketten gedruckt sind. Auf jeden Etikett ist auch die Menge des Inhaltes des Packstücks enthalten. Beim letzten Etikett kann es jedoch auch zu einer abweichenden Menge kommen. Jetzt meine Frage: Wie kann ich das letzte Etikett vor dem Druck ändern. Die letzte Packstücknummer soll schon im Etikett stehen und dann muss noch die Menge geändert werden.
Das Makro sieht bisher so aus:
Sub DruckeUndZaehle()
Dim VarPrints As Variant, intI As Integer, intK As Integer
'Inputbox mit Type 1 laesst nur Zahlen als Eingabe zu.
VarPrints = Application.InputBox("Anzahl der Ausdrucke", "Drucken", 0, Type:=1)
If VarPrints = False Then 'User selected cancel
Exit Sub
ElseIf CInt(VarPrints) > 0 Then
intK = CInt(VarPrints)
For intI = 1 To intK Step 1
Range("Packstk2") = intI
With ActiveSheet.PageSetup
.CenterFooter = "Seite " & intI & " von " & intK
End With
'ActiveSheet.PrintPreview 'zeigt die Vorschau an, ggf. deaktivieren.
ActiveSheet.PrintOut 'druckt direkt wenn Zeile aktiviert.
Next intI
'
Sub Teilmenge_Drucken()
' Teilmenge_Drucken Makro
'Range("M7").Select
'Selection.Copy
'Range("J7").Select
'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
'End Sub
End If
End Sub
Ab Sub Teilmenge_Drucken soll der Wert aus M7 den Wert in J7 ersetzen und mit der letzten
Packstünummer gedruckt werden.
Ich hoffe es ist soweit verständlich erklärt. Vielleicht könnt Ihr mir helfen.
Gruß Udo