PDF Makro übernimmt nicht Excel Druckbereiche
13.08.2016 23:11:57
Robson
ich möchte eine bzw. mehrere variabel aus einer Listbox auszuwählende Arbeitsblätter gleichzeitig über ein Druckmakro als PDF drucken.
Habe einen Command Button für eine Druckvorschau aus Excel. Das funktioniert glatt.
Bei dem cmd Button für das PDF holt er sich aber immer nur die gerade markierten Zellen der angesprochenen Arbeitsblätter als Ausdruck und nicht den vorher in Excel definierten Druckbereich.
Der code lautet:
Private Sub cmd_pdf_Click()
Dim strSheets() As String
Dim intIndex As Integer, intN As Integer
With Lst_Nach 'Name der Listbox anpassen!
For intIndex = 0 To .ListCount - 1
ReDim Preserve strSheets(intN)
strSheets(intN) = .List(intIndex)
intN = intN + 1
Next
End With
If intN > 0 Then
Me.Hide
ThisWorkbook.Sheets(strSheets).Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveWorkbook.Path & "\" & "Titel " & Date & ".pdf",Quality:=xlQualityStandard _
, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish _
:=True
End If
End Sub
Hat jemand eine Idee? Würde mich sehr freuen...
VG Robson