Drucker soll nicht drucken VBA
17.09.2003 15:26:16
T.Reingruber
folgendes Problem: ich entnehme aus einer Zelle einen sich automatisch berechnenden Wert; dieser steuert die Anzahl der Druckkopien. Wenn diese Zelle allerdings den Wert 0 enthält, startet der Debugger!! - Wie komme ich denn hier weiter?! (P.S. Es ist durchaus gewollt, dass die Zelle ab und zu 0 enthält, da ist nichts dran zu rütteln!!)
Quelltext:
If ChbGrVDA.Value = True Then
Application.ScreenUpdating = False
Sheets("Gr-Label").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=Sheets("Tabelle1").Range("F13").Value, Collate:=True
Sheets("Rest-GRLabel").Select
If Sheets("Tabelle1").Range("F14").Value >= 1 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=Sheets("Tabelle1").Range("F14").Value, Collate:=True
Else
'..... (Hier müsste eine Bedingung stehen, die bei F14<=0 den Druckauftrag von Rest-GRLabel unterbindet)
......'
End If
Application.ScreenUpdating = True
End If