PDF-Makro
13.08.2013 10:21:28
Nik
..vor einiger Zeit hatte ich hier mal Hilfe erhalten bezüglich eines Makros, dass mir aus einem Excel-File ein PDF speichert. Das Makro kopiert jeweils die zu druckenden Seiten untereinander und speichert das dann als PDF. Mittlerweile ist mir unter Excel 2010 aufgefallen, dass wenn ich die zu druckenden Tabs hintereinander markiere und dann "speichern unter" mache, das gleiche Ergebnis herauskommt.
Nur jetzt stehe ich bereits wieder an, sprich ich komme in VBA bei den Anpassungen nicht weiter..:-(
Wie funktioniert es das Makro so anzupassen (für die markierten Seiten in Spalte A des Controll Centers) dass
1. das Makro die entsprechende Print-Areas wie in Spalte C im Controll-Center vermerkt einstellt
2. alle Seitenränder (oben, unten, links, rechts) alle auf 0 cm stellt
3. und gleichzeitig immer Querformat ausgibt
-------------
Sub MacheLangesPDF()
Const SheetQuelle As String = "Controll Center"
'Hier dein speichern-Pfad hinterlegen!
Const SavePath As String = "I:\JSXC\Data\Team\"
'Hier kannst du den "speichern-als" Namen ändern.
'Ich habe mal den Workbook-Namen + Datum/ZeitIndex voreingestellt.
Dim SaveFileName As String
SaveFileName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & "_" & Format(Now, " _
YYYYMMDD_HHMM")
Dim wkbOld As Workbook
Dim wkbNew As Workbook
Dim SheetNew As Worksheet
Dim RowLast As Long
Dim InsertUnderRow As Long
Dim r As Range
Set wkbOld = ActiveWorkbook
Workbooks.Add
Set wkbNew = ActiveWorkbook
Set SheetNew = ActiveSheet
With wkbOld.Sheets(SheetQuelle)
RowLast = .Cells(.Rows.Count, 3).End(xlUp).Row
'jeden Blattnamen durchgehen
For Each r In .Range(.Cells(3, 3), .Cells(RowLast, 3))
'wenn Bericht = ja
If .Cells(r.Row, 2) Then
'Kopieren
wkbOld.Sheets(r.Value).UsedRange.Copy
'und in neues Buch / Blatt einfügen
Range("A" & Range("A1").SpecialCells(xlCellTypeLastCell).Row + 1).PasteSpecial
Application.CutCopyMode = False
End If
Next r
'MÜSSTE eigentlich aktiviert sein, aber sicher ist sicher
wkbNew.Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
SavePath & SaveFileName & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:= _
True, IgnorePrintAreas:=False, OpenAfterPublish:=True
wkbNew.Close False
End With
End Sub
https://www.herber.de/bbs/user/86821.xlsm
Das müsste ja irgendwie alles in die Schleife rein. Kann mir da jemand ein wenig helfen?
Vielen lieben Dank und Gruss
Nik