Code von Save As PDF erweitern
Save
habe bei mir das Add in Save As PDF installiert.
Nun würde ich gerne alle in einer Listbox angeklickten Arbeitsblätter als PDF speichern.
Einzeln geht das mit dem Code
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
sPDF, Quality:= _
xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Über das Druckmenu habe ich dank Eurer Hilfen den Code:
Dim lListBox As Long
Dim aTemp() As Variant
Dim iIndex As Integer
Dim DruckerAktiv As String
Dim oSheetAktiv As Object
ReDim vntArray(0)
Set oSheetAktiv = ActiveSheet
'Index-Nummern der selektierte Blätter in temporäres Array schreiben
For lListBox = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(lListBox) Then
iIndex = iIndex + 1
ReDim Preserve aTemp(1 To iIndex)
aTemp(iIndex) = CLng(ListBox1.List(lListBox, 2))
End If
Next lListBox
Me.Hide 'Erforderlich, falls mit Seitenvorschau gearbeitet wird
If iIndex > 0 Then
DruckerAktiv = Application.ActivePrinter 'aktiven Drucker merken
Sheets(aTemp).Select
If Application.Dialogs(8).Show = True Then
End If
Application.ActivePrinter = DruckerAktiv 'gemerkten Drucker wieder aktivieren
End If
oSheetAktiv.Select
Unload Me
Im Ergebnis wollte ich dann den Code so ausführen:
Sheets(aTemp).Select
Sheets(aTemp).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
sPDF, Quality:= _
xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Als Fehlermeldung erhalte ich nun: "Objekt unterstützt diese Eigenschaft oder Methode nicht".Was muss ich ändern?
Gruß Rainer