Hallo geri
08.02.2004 18:45:42
DieterG
habe im Forum gerade dieses Makro entdeckt!
die 1.Zeile habe ich hinzugefügt, um die Dialogbox für die Druckerauswahl einzublenden.
Wenn nun die Druckerauswahl eingeblendet wird und ich den Button "Abbrechen" anklicke, wird das Makro trotzdem fortgesetzt.
Wer kann mir den richtigen Befehl hizufügen, um das Makro zu beenden??
Ich habe es mit diesen Befehl versucht: "If antwort = DialogBoxNo Then Exit Sub"
Danke für die Hilfe und noch einen schönen Sonntag
Gruß DieterG
Sub Drucken()
Application.Dialogs(xlDialogPrinterSetup).Show
Dim dAnz As Variant
dAnz = Application.InputBox("Geben Sie die Anzahl der benötigten Ausdrucke ein?", "Eingabe", Default:=1, Type:=1)
If dAnz <> False Then
dAnz = Fix(dAnz)
If dAnz > 0 Then ActiveWindow.SelectedSheets.PrintOut Copies:=dAnz, Collate:=True
End If
If antwort = InputBoxNo Then Exit Sub
Application.Goto Reference:="Print_Area"
Selection.PrintOut Copies:=1, Collate:=True
End Sub
Anzeige