Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1748to1752
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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!
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
,,,

314 Forumthreads zu ähnlichen 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
Anzeige
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
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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
2
3
2
7
4
4
13
3
4
1
3
7
3
9
1
1
2
1
2
7
6
3
3
2