Drucken aller sichbaren Sheets
26.01.2005 10:31:48
Jörg
Ich möchte gerne alle sichtbaren Shhets an einen ausgewählten Drucker senden.
Das Problem was ich nun mit den u.g. Code habe , ist das ich die sichtbaren Sheets mit dem wks nicht selected bekomme,ich keinen Dateinamen angeben muss, und nachher bein setzen des Blattschutzes bekomme ich einen Laufzeitfehler 424 "Objekt notwendig.
Was habe ich hier falsch gemacht?
Public
Sub drucke_pdf()
Dim wks As Worksheet
Dim sPrinter As String
sPrinter = Application.ActivePrinter
Application.Dialogs(xlDialogPrinterSetup).Show
Application.ActivePrinter = sPrinter
For Each wks In Worksheets
If Visible = True Then
Sheets.Select
End If
Next
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=sPrinter
For Each wks In Worksheet
If Visible = True Then
Activesheets.Pictures.Delete
Activesheets.Protect "Passwort", DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
Next
End Sub
Gruß Jörg