Wenn kein Drucker, dann abbrechen ?
09.01.2005 19:25:26
walter
ich habe ein Druckmenü, siehe Makro, da meine Datei auf dem Laptop auch genutzt
wird, kann es passieren das man den Druckbutton drückt.
Ich möchte das man dies über einen Zusatz verhindert so...
Wenn kein Drucker vorhanden , MsgBox "kein Drucker angeschlossen".
Geht das ?
Hier mein Makro:
Sub NW_Kulanzblat_Verkäufer_Drucken()
Application.ScreenUpdating = False
Dim kbl_verkäufer
kbl_verkäufer = Sheets("Kulanzblatt-VK").[F12]
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.511) 'linker Rand
.RightMargin = Application.InchesToPoints(0.236) 'rechter Rand
.TopMargin = Application.InchesToPoints(0.236) 'oberer Rand
.BottomMargin = Application.InchesToPoints(0.314) 'unterer Rand
.HeaderMargin = Application.InchesToPoints(0.157) 'Kopfzeile
.FooterMargin = Application.InchesToPoints(0.157) 'Fußzeile
.Zoom = False
' .Orientation = xlLandscape 'Querformat
.Orientation = xlPortrait 'Hochformat
End With
With ActiveSheet.PageSetup
.LeftFooter = "&""Courier New,Standard""&6&F" & "/ erstellt: " & kbl_verkäufer
.RightFooter = "&""Courier New,Standard""&6Version 5.0 &F &D/&T"
End With
Range("B1:R80").Select
ActiveSheet.PageSetup.PrintArea = "$B$1:$R$80"
Range("C1").Select
' ActiveWindow.SelectedSheets.PrintPreview 'Seitenansicht
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Application.ScreenUpdating = False
End Sub
Gruß Walter