Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1900to1904
1900to1904
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mehrere Sheets als PDF drucken

Forumthread: mehrere Sheets als PDF drucken

mehrere Sheets als PDF drucken
06.10.2022 10:02:14
Alex
Hallo zusammen,
ich bin absoluter VBA-Anfänger.
Da ich mich erst langsam in das VBA-Thema einarbeite, ich aber eine schnelle Lösung benötige, hoffe ich auf euer Schwarmwissen.
Ich möchte die Tabellenblätter AWP1 und AWP2 in ein PDF drucken.
Dabei hat das AWP1 den Druckbereich A$1:$E$29 und AWP2 den Druckbereich $B$5:$F$38.
Wer kann mir helfen?
Vorab vielen Dank.
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrere Sheets als PDF drucken
06.10.2022 10:13:22
JoWE
Hallo Alex,
zuerst legst Du den Druckbereich fest.
Dann kannst Du das Drucken mit dem Makrorekorder aufzeichnen.
Gruß
Jochen
AW: mehrere Sheets als PDF drucken
06.10.2022 13:15:51
Alex
Danke, Leider bekomme ich die Fehlermeldung, dass das Makro nicht aufgezeichnet werden kann. Daher möchte ich den Code selber schreiben.
AW: mehrere Sheets als PDF drucken
06.10.2022 13:25:37
JoWE
Dann nimm doch den Code den NoNet für Dich hier eingestellt hat
Anzeige
Sheets als PDF drucken : Makrorekorder
06.10.2022 10:24:03
NoNet
Hallo Alex,
ein kleiner Tipp : Aktiviere die Symboleiste "Entwicklertoools", dort findest du den Befehl "Makro aufzeichnen" ⇒ Makrorekorder.
Mit diesem Makrorekorder kannst du (fast) alle Schritte als VBA-Code aufzeichnen und später exakt so wieder laufen lassen.
Ich habe die folgenden Schritte aufgezeichnet
  • Druckbereich Blatt AWP1 festlegen
  • Druckbereich Blatt AWP2 festlegen
  • Blätte AWP1 und AWP2 markieren (per gedrückter STRG-Taste !)
  • Drucken per Microsoft Print to PDF (die Druckerauswahl wird leider NICHT aufgezeichnet !)

    • und dadurch folgenden VBA-Code erzeugt :
    
Sub DruckenAlsPDF()
' DruckenAlsPDF Makro
Range("A1:E29").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$E$29"
Sheets("AWP2").Select
Range("B5:F38").Select
ActiveSheet.PageSetup.PrintArea = "$B$5:$F$38"
Sheets(Array("AWP1", "AWP2")).Select
Sheets("AWP1").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
    Diesen Code kann man manuell noch etwas optimieren :
    
Sub DruckenAlsPDF2()
' DruckenAlsPDF2 Makro
Sheets("AWP1").PageSetup.PrintArea = "$A$1:$E$29"
Sheets("AWP2").PageSetup.PrintArea = "$B$5:$F$38"
Sheets(Array("AWP1", "AWP2")).PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub
    Salut, NoNet
    Anzeige
    AW: mehrere Sheets als PDF drucken
    07.10.2022 08:28:36
    CarlKäfer
    Hallo,
    es könnte auch so funktionieren:
    
Sub Druckerauswahl()
Application.Dialogs(xlDialogPrint).Show
End Sub
    Gruß CarlKäfer
    ;

    Forumthreads zu verwandten Themen

    Tabelle als PDF speichern
    PeTeR

    Hallo VBA-Freaks,
    ich suche seit Stunden - finde aber nicht den exakt passenden Code, obwohl es zig Einträge zu dem Thema gibt.
    Ich will eine Tabelle per VBA in PDF umwandeln u. drucken. Mein Code:
    Application.ActivePrinter = "Adobe PDF auf Ne01:"
    ActiveWindow.SelectedSheets.Pri...
    25.10.2008 23:06:00
    Thread-ID: 1019291
    5 Beiträge
    Tabellenblätter einzeln als Datei speichern
    murat

    Hallo,
    ich habe einen tollen VBA Code hier im Forum gefunden!
    Ich möchte die einzeln Tabellenblätter als Datei Speichern. ich habe 20 Tabellenblätter in einer Datei aus der sollen 20 Dateien werden. Dateiname steht immer in Zelle C2 des jeweiligen tabellenblattes.
    Der Code unten i...
    13.01.2009 11:46:16
    Thread-ID: 1039178
    3 Beiträge
    Tabelle als Text speichern, Dateiname aus Zelle
    Jürgen

    Hallo Excel-Profis,
    ich möchte über ein Makro folgendes ausführen:
    - das aktuelle Tabellenblatt soll im Textformat gespeichert werden
    - das Dialogfeld "Speichern unter" soll am Bildschirm erscheinen
    - der Dateiname soll aus der Zelle I1 in das Dialogfeld übernommen werden
    Im...
    08.04.2009 13:05:46
    Thread-ID: 1067706
    2 Beiträge
    PDF-File als neues Tabellenblatt
    StefanS

    Hallo,
    meine Vorgesetzten treiben mich noch in den Wahnsinn!!!!
    Besteht generell die Möglichkeit per Hyperlink auf eine Pdf-Datei (z.B. in Sheet("Register_1")),
    diese als neues Tabellenblatt (z.B. Sheet("Datenblatt")) einzufügen? Habe keine Ahnung, ob so etwas überhaupt mit Excel mö...
    18.05.2009 15:42:00
    Thread-ID: 1075923
    3 Beiträge
    Markierter Bereich als Text Datei speichern
    Roland

    Hallo,
    Ich brauche von einem Excelblatt nur einen ausgewählten Bereich an Daten. Diese Daten müssen in einen bestimmten Format als Text Datei bespeichert werden, damit sie ein anderes Programm wieder lesen kann.
    Am besten wäre es, wenn ich die Daten einfach markieren könnte und dann übe...
    21.08.2009 23:44:54
    Thread-ID: 1097867
    6 Beiträge
    tabelle per makro als pdf drucken ohne abfrage
    Jens

    hi leute
    hab mal ne frage
    ist es möglich die speicher abfrage vom pdf drucker zu umgehen?
    ich möchte einen festen ordner vorgeben und die datei soll auch bei jedem druck überschrieben werden ohne nachfrage.
    vielen dank im voraus
    23.11.2009 08:59:36
    Thread-ID: 1119332
    3 Beiträge
    Tabellenblatt als pdf und speichern
    Horst

    Hallo,
    ich möchte über VBA ein Tabellenblatt als pdf speichern.
    Momentan kann ich dank dem Makrorecorder ein pdf Dokument mit der BroadGun PDF Machine erstellen,
    Acrobat Reader startet und zeigt das Dokument an.
    Mein Wunsch wäre jedoch , dass das PDF Dokument auch gleich mit e...
    27.11.2009 15:18:04
    Thread-ID: 1120555
    3 Beiträge
    mehrere Tabellenblätter im Querformat ausdrucken
    WernerP

    Ich möchte mehrere Tabellenblätter in einem Rutsch im Querformat ausdrucken.
    Markiere ich alle Tabellenblätter und wähle Drucken mit Vorschau, so muß ich für jedes einzelne
    Blatt das Querformat einstellen.
    Gibt es einen Weg für alle Blätter gleichzeitig Querformat einzustellen? G...
    01.12.2009 13:02:29
    Thread-ID: 1121202
    2 Beiträge
    Zellen aus mehreren Tabellenblätter in eine Tabell
    Stephan

    Hallo,
    ich beziehe mich auf einen Thread - wo ich den ANTWORTEN - Button nicht gefunden habe.
    es geht um folgenden Beitrag: https://www.herber.de/forum/archiv/1112to1116/t1113368.htm#1113368
    Ich habe 12 Blätter und will Werte der einzelnen Blätter in einer Übersicht (13. Blatt) zus...
    04.01.2010 18:47:08
    Thread-ID: 1127122
    6 Beiträge
    mit PDF Creator ein Tabellenblatt als pdf abspeich | Herbers Excel-Forum
    Horst
    Hallo
    ich will ein Tabellenblatt als pdf abspeichern.
    Dank diesem Forum habe ich einen Code gefunden, welcher jedoch bei mir nicht richtig funktioniert.
    Wenn ich bei Break (siehe Code) stoppe, ist der PDFCreator geöffnet, das umzuwandelne Tabellenblatt
    ist eingetragen und der Status...
    14.01.2010 16:16:29
    Thread-ID: 1129991
    6 Beiträge
    Tabellenblatt als Datei speichern
    Murat

    Was stimmt bei dem VBA code nicht bekomme Fehler bei kompilieren variable nicht definert
    Ich möchte die einzeln Tabellenblätter als Datei Speichern. ich habe 20 Tabellenblätter in einer Datei aus der sollen 20 Dateien werden. Dateiname steht immer in Zelle i2 des jeweiligen tabellenblattes....
    19.01.2010 16:27:42
    Thread-ID: 1131114
    6 Beiträge
    Tabelle als TXT speichern mit richtiger Zeilenanz.
    Joni

    Hallo,
    ich habe das Problem, dass beim Speichern eines Tabellenblattes als TXT am Schluss noch eine Leerzeile mitgespeichert wird. Da ich die Zeilenanzahl der Textdatei auslese und auswerte habe ich somit immer eine Zeile zu viel. Gibt es eine Möglichkeit, dass wirklich nur befüllte Zeilen...
    29.01.2010 18:38:40
    Thread-ID: 1134231
    4 Beiträge
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
    Anzeige
    Anzeige
    Anzeige