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

PDF Datei auf eine Seite speichern

Forumthread: PDF Datei auf eine Seite speichern

PDF Datei auf eine Seite speichern
08.04.2020 11:48:11
Schlandro
Hallo,
Ich würde gerne die gefilterten Daten aus einer Tabelle auf einer Seite im Querformat abspeichern, jedoch besteht die pdf Datei aus sechs Seiten, wo liegt der Fehler? Der Code soweit:
Option Explicit
Public Sub Filtern()
Const FOLDER_PATH As String = "C:\Users\simon\Desktop\Excel-Test\"
Dim objWorkbook As Workbook
Call Rows(1).AutoFilter(Field:=1, Criteria1:="PuL")
Range("A1:AO600").Select
Selection.Copy
Set objWorkbook = Workbooks.Add(Template:=xlWBATWorksheet)
With objWorkbook.Worksheets(1)
Call .Paste(Destination:=.Cells(1, 1))
End With
Call objWorkbook.ExportAsFixedFormat(Type:=xlTypePDF, Filename:=FOLDER_PATH & "/", _
Quality:=xlQualityStandard, OpenAfterPublish:=False)
Sheets("Tabelle1").PageSetup.Orientation = 2
Sheets("Tabelle1").PageSetup.Zoom = False
Sheets("Tabelle1").PageSetup.FitToPagesWide = 1
Sheets("Tabelle1").PageSetup.FitToPagesTall = 1
Call objWorkbook.Close(SaveChanges:=False)
End Sub

Nochmals Danke an Nepumuk für den Originalcode!
Besten Dank und liebe Grüße
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: PDF Datei auf eine Seite speichern
08.04.2020 12:18:42
Herbert
Hallo,
du willst wirklich alle Zellen von "A1:AO600" auf 1 pdf-Blatt bringen?
Servus
AW: PDF Datei auf eine Seite speichern
08.04.2020 13:27:10
Schlandro
Den Bereich habe ich nur so definiert, tatsächlich ist die Tabelle mit Daten wesentlich kleiner. Besser wusste ich mir nicht zu helfen.
AW: PDF Datei auf eine Seite speichern
08.04.2020 13:33:45
Herbert
Dann gib doch den korrekten Bereich an!
Anzeige
AW: PDF Datei auf eine Seite speichern
08.04.2020 15:41:01
Schlandro
Konnte das Problem mit Macrorecorder lösen.
AW: PDF Datei auf eine Seite speichern
08.04.2020 16:05:23
Herbert
Dann poste deinen Code doch mal, denn andere wollen ja auch was lernen!
Servus
AW: PDF Datei auf eine Seite speichern
08.04.2020 16:55:51
Schlandro
Ist zwar nicht super gut gelöst, funktioniert jedoch
Option Explicit
Public Sub Filtern()
Const FOLDER_PATH As String = "C:\Users\simon\Desktop\Excel-Test\"
Dim objWorkbook As Workbook
Call Rows(1).AutoFilter(Field:=1, Criteria1:="PL")
Range("A1:AO600").Select
Selection.Copy
Set objWorkbook = Workbooks.Add(Template:=xlWBATWorksheet)
With objWorkbook.Worksheets(1)
Call .Paste(Destination:=.Cells(1, 1))
Rows("4:4").RowHeight = 32.25
Columns("E:E").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Columns("C:C").EntireColumn.AutoFit
Columns("F:F").EntireColumn.AutoFit
Columns("G:G").EntireColumn.AutoFit
Columns("H:H").EntireColumn.AutoFit
Columns("Z:AO").Select
Selection.EntireColumn.Hidden = True
Application.PrintCommunication = False
End With
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Zoom = 100
End With
Application.PrintCommunication = True
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
End With
Application.PrintCommunication = True
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\sschlanderer\Desktop\Excel-Test\xxx.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Call objWorkbook.Close(SaveChanges:=False)
Anzeige
AW: PDF Datei auf eine Seite speichern
08.04.2020 17:34:27
Herbert
Hallo Schlandro,
so sieht es etwas eleganter aus:
Public Sub Filtern()
Dim objWorkbook As Workbook
Application.ScreenUpdating = False
Call Rows(1).AutoFilter(Field:=1, Criteria1:="PL")
Range("A1:Y600").Copy
Set objWorkbook = Workbooks.Add(Template:=xlWBATWorksheet)
With objWorkbook.Worksheets(1)
Call .Paste(Destination:=.Cells(1, 1))
Columns("E:H").EntireColumn.AutoFit
End With
With ActiveSheet.PageSetup
.PrintQuality = 600:            .CenterHorizontally = False
.CenterVertically = False:      .Orientation = xlLandscape
.Draft = False:                 .PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic: .Zoom = 100
.Zoom = False:                  .FitToPagesWide = 1
.FitToPagesTall = 1:            .PrintErrors = xlPrintErrorsDisplayed
End With
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"E:\4herber\xxx.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
Call objWorkbook.Close(SaveChanges:=False)
Application.ScreenUpdating = True
End Sub
Servus
Anzeige
AW: PDF Datei auf eine Seite speichern
09.04.2020 07:38:37
Schlandro
Vielen Dank, funktioniert wunderbar!
AW: Danke für die Rückmeldung! owt
09.04.2020 08:48:30
Herbert
,,,
;

Forumthreads zu verwandten Themen

Zusammenfassung sheets auf einer Seite, ohne Leerz
gerdi

Hallo,
ich möchte aus verschiedenen Excel-Sheets (Tabs) eine Zusammenfassung
aller benutzten Zeilen haben.
Es gibt z.B. 10 verschiedene Tabellen, eine heißt Berlin, andere Rom, ect. und
auf jeder Tabelle sind zu verschiedenen Zeiten andere Inhalte.
Z.b. sind heute 10 Zeilen...
18.11.2008 14:36:00
Thread-ID: 1025647
3 Beiträge
Wie kann man Makros auf einer html-Seite aktiviere
Nicola

Hallo
Ich habe eine Exceltabelle, bei der eine Suchfunktion als Makro eingebaut ist. Doch ich kann das Makro nicht mehr öffnen, sobald ich sie als htm/html-Datei abspeichere.
Grüße Nicola
24.11.2008 22:18:34
Thread-ID: 1027502
3 Beiträge
Auf eine Seite drucken
Arnold

Hallo,
ich habe folgendes Problem:
Ich habe ein Tabellenblatt erstellt und will dieses über einen button ausdrucken.
Den Druckbereich habe ich wie folge definiert:
Private Sub CommandButton1_Click() Range("F9:P31").PrintPreview End Sub
Jetzt druckt er aber auf zwei Blätte...
29.11.2008 14:11:00
Thread-ID: 1028834
4 Beiträge
2 Sheets auf einer Seite!??
Timmy

Liebe Excler,
ich moechte folgendes erreichen.
Und zwar habe ich Daten auf einem Spreadsheet, die ich unabhaengig voneinander bearbeiten will.
Ich habe eine Beispieldatei angehaengt und etwas dazu erlautert...
https://www.herber.de/bbs/user/59047.xls
Ich hoffe, ich habe es...
03.02.2009 19:43:19
Thread-ID: 1046763
3 Beiträge
25 Zeilen auf eine Seite
Markus

Hallo zusammen,
ich habe eine lange Tabelle (ca. 40 Seiten nur mal als Größe) und ich bekomme es trotz Seite einrichten "anpassen" und "Seitenränder" nicht oder nur sehr mühsam hin, hin dass auf jede Seite 25 genau Excel-Zeilen gedruckt werden.
Hat hier jemand ein Makro für? Das ist ab...
02.04.2009 18:57:27
Thread-ID: 1066456
8 Beiträge
Anzeige
zwei Diagramme auf eine Seite drucken, ohne Tabell
Christian

Hallo Forum,
ich möchte zwei Diagramme auf einer A4 Seite ausdrucken, ohne die Zellen im Hintergrund mitzudrucken.
Dazu wähle ich die beiden Diagramme, klicke auf "Drucken", aber es werden immer die Zellen die neben den Diagrammen vorgucken mit ausgedruckt. Wenn ich nur ein Diagramm wäh...
14.07.2009 09:59:49
Thread-ID: 1088376
5 Beiträge
Zeilenhöhen auf eine Seite anpassen
Tipetan

Hallo Excel-Gemeinde!
Ich habe eine Tabelle mit Inhalt für maximal eine Seite A3 quer. Die Spaltenanzahl ist fest und die Breite ist auf ein Maximum eingestellt - die 14 Spalten verteilen sich über die gesamte Breite meiner Seite.
Nun zu meinem Problem: Ich habe eine variable Anzahl von...
07.01.2011 13:00:04
Thread-ID: 1194386
5 Beiträge
Alle Zellen einer Zeile auf eine Seite
Stef@n

Hallo Exelaner
ich hab noch eine Frage:
Ich habe eine große Tabelle mit 100 Zeilen in 35 Spalten.
Jetzt möchte ich gern jede Zeile auf einer DinA4 Seite ausdrucken.
Dabei sollen die Zellinhalte auf der Seite entsprechend angeordnet werden.
Z.B. a1 bis c1 in der ersten Zeile...
18.04.2012 12:33:50
Thread-ID: 1259922
14 Beiträge
Jede Zeile auf einer Seite ausdrucken
Stef@n

Hallo Excel-Freunde
ich verzweifel weil ich nicht auf die Lösung komme.
Ich habe eine Datei in der 42 Zeilen enthalten sind
Spalte A Name - Spalte B Datum und eine Grafik
Die beiden Spalten sind so breit, daß der Name linksbündig, das Datum rechtsbündig
auf einer DinA4 Seite...
28.06.2012 21:48:44
Thread-ID: 1269376
4 Beiträge
anpassen auf eine Seite
Jürgen

Hallo liebe Helfer,
bei uns auf der Arbeit wird über ein Makro ein Tabellenblatt erzeugt.
Dieses müssen wir monatlich für 29 Anlagen aktualisieren und ausrucken.
Allerding passt nach Ablauf des Makros nicht alles auf eine Seite, es muß jedesmal auf Seitenansicht und anpassen auf 1 S...
05.08.2013 19:29:01
Thread-ID: 1325822
5 Beiträge
Anzeige
gefilterte Pivottabellen auf einer Seite drucken
Hendrik

Hallo
ist es möglich, gefilterte Pivottabellen aus mehreren Tabellenblättern auf einer Seite anzuordnen, um die zu drucken?
Auf einer Seite ließen sich die verschiedenen Pivottabellen schwerlich direkt einbauen, da entweder riesige Zwischenräume entstehen würden (bei Filtern) oder aber...
02.09.2013 14:36:02
Thread-ID: 1329201
2 Beiträge
2 Druckbereiche auf einer Seite drucken
Armin

Hallo zusammen,
ich möchte gerne die Druckbereiche B1:F16 und B37:F46
auf einer Seite ausdrucken.
Bisher macht Excel immer 2 Seiten daraus.
Kennt jemand eine Lösung dafür?
Besten Dank für eure Hilfe
Armin
15.05.2014 12:54:03
Thread-ID: 1361745
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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