Fehlermeldung abfangen... ?
07.06.2004 12:16:14
Mario
ich bräuchte mal kurz eure Hilfe, mir ist bei meinen Code etwas aufgefallen, unzwar:
Private Sub cmd_Start4_Click()
'Druckerliste
Dim Druckerauswahl
Druckerauswahl = Application.Dialogs(xlDialogPrinterSetup).Show
'Druckeinstellungen
If OptionButton_A4.Object = True Then
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.Zoom = False
End With
ActiveWindow.SelectedSheets.PrintPreview
Else
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.PaperSize = xlPaperA3
.Zoom = False
End With
End If
End Sub
Ich habe ein Optionsfeld wo man A3 oder A4 auswählen kann, wenn ich A4 auswähle und den Drucker geht soweit alles, aber wenn ich A3 auswähle und man wählt einen Drucker aus der kein A3 Drucken kann kommt eine Fehlermeldung das er die Eigenschaft xlPaperA3 nicht kennt, und nun meine Frage : kann ich sagen wenn es kein A3 Drucker ist, das zb. eine Meldung kommt: "Dieser Drucker druckt kein A3" ?, ich wäre echt super froh wenn ihr mir hier mal helfen könntet...
Gruß
Mario