2 Druckbereiche als PDF speichern
19.02.2015 10:14:22
Niko
ich habe hier einen VBA-Code der nicht funktionieren möchte. Ich definiere aus 2 Tabellenblättern zunächst dynamisch die Druckbereiche und will diese anschließend in einer PDF Datei abspeichern. Allerdings will er die Datei nicht abspeichern und zeigt mir an der Stelle, wo es als PDF abgespeichert werden soll, einen Fehler.
Sub Drucken_Komplett()
Dim Zeilen As Integer
Dim Spalten As Integer
Dim ZeilenA As Integer
Dim SpaltenA As Integer
Dim i As Integer, rng As Range
ZeilenA = WorksheetFunction.CountA(Sheets("Sum").Range("F1:F20000"))
SpaltenA = WorksheetFunction.CountA(Sheets("Sum").Range("B5:I5"))
With Sheets("Sum").PageSetup
.Orientation = xlLandscape
.PrintArea = Range(Cells(4, 2), Cells(ZeilenA + 4, SpaltenA + 1)).Address
.FitToPagesWide = 1
.CenterFooter = "&8Seite &P von &N"
End With
'Ab hier neue Tabelle
Zeilen = WorksheetFunction.CountA(Sheets("Detail").Range("G1:G20000"))
Spalten = WorksheetFunction.CountA(Sheets("Detail").Range("B5:J5"))
With Sheets("Detail").PageSetup
.Orientation = xlLandscape
.PrintArea = Range(Cells(4, 2), Cells(Zeilen + 4, Spalten + 1)).Address
.FitToPagesWide = 1
ActiveWindow.View = xlPageBreakPreview
With Sheets("Detail")
.ResetAllPageBreaks
For i = 1 To .HPageBreaks.Count
Set rng = .HPageBreaks(i).Location
Do While rng.Offset(, 0) = ""
Set rng = rng.Offset(-1)
Loop
Set .HPageBreaks(i).Location = rng
Next
End With
ActiveWindow.View = xlNormalView
.CenterFooter = "&8Seite &P von &N"
End With
'hier kommt ein Fehler
Sheets(Array("Sum", "Detail")).ExportAsFixedFormat Type:=xlTypePDF, Filename:="Speicherort", _
Quality:=xlQualityStandard, IncludeDocProperties _
:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
Falls jemand eine Lösung hat, wäre ich sehr dankbar.
Viele Grüße