Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Alle sichtbaren Seiten Drucken in ein PDF

Forumthread: Alle sichtbaren Seiten Drucken in ein PDF

Alle sichtbaren Seiten Drucken in ein PDF
21.01.2005 12:34:49
Jörg
Hi,
ich möchte gerne alle sichtbaren Seiten in ein PDF abspeichern.
Hierzu möchte ich erst alle Sheets markieren und dann einen Drucker auswählen,
der alle makierten dann Seiten druckt.
Ich habe schon gesucht und konnte nur Macros finden welche die Seiten in der Vorschau zeigten und dann drucken.
Mir stellt sich nun die Frage ob dies geht??
Wann ja , welchen Befehl kann ich hierzu nutzen.
MfG Jörg
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle sichtbaren Seiten Drucken in ein PDF
22.01.2005 19:42:22
Giuseppe
Hallo Jörg
Ich hatte eine gleiche Aufgabe...
Ich konnte sie mit dem Makrorecorder lösen...
Einfach Schritte für pdf-druck aufzeichnen

mfG
Giuseppe
AW: Alle sichtbaren Seiten Drucken in ein PDF
24.01.2005 18:37:57
andre
Hallo Jörg,
kommt auch auf Deine pdf-Software an. Die Vorschau bekommst Du bestimmt alleine weg. Gehe mal mit dem Cursor irgendwo in das Makro und drücke F8. Damit bekommst Du den Einzelschrittmodus und kannst mit F8 von Befehl zu Befehl weitermachen, und dann findest Du auch die Vorschau, und diese eile muss dann weg - oder Hochkomma davor schreiben.
Grüße, Andre
Anzeige
AW: Alle sichtbaren Seiten Drucken in ein PDF
26.01.2005 08:45:43
Jörg
Hallo ,
so ich habe mit dem Makrorecorder mal gespielt und
händisch editiert, nun habe ich folgendes geschreiben:
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

Das Problem was ich nun 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??
Gruß Jörg
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige