Druckbereich über Button als PDF speichern

[Mike4711]

Hallo alle Forumfreunde,

ich habe hinter einem Arbeitsblatt (einer Pivottabelle), einen Druckbereich mit folgendem Code:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

  Dim lngz As Long

  lngz = Cells(Rows.Count, 1).End(xlUp).Row

   With Range("D8:D" & lngz & "," & "D8:D" & lngz)

       .HorizontalAlignment = xlCenter

   End With

   ActiveSheet.PageSetup.PrintArea = Range("A4:I" & lngz).Address

End Sub

Ich möchte gerne in diesem Blatt einen Button ablegen, der mir diesen Druckbereich als PDF speichert.
Mit Auswahlmöglichkeit wohin gespeichert werden soll.
Kann mir jemand einen einfachen Code dafür nennen, dem ich dem Command Button zuteilen kann?
Würde mich sehr freuen.
Grüße an alle
Mike

[schauan]

Hallo Mike,

brauchst Du für den Dialog und das Speichern ein Beispiel?

Das Speichern kann man ja aufzeichnen:

PHP-Code:

Sub Makro1()
'
' Makro1 Makro
'

'
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Test\Kopie_Mikes_Einkauf_002.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub 


Mit dem Dialog würde es dann so aussehen:

PHP-Code:

Sub Makro1()
'
' Makro1 Makro
'Varialendeklaration
Dim strName As String
'Speichern-Dialog zur Aufnahme des Filenamens
strName = Application.GetSaveAsFilename( _
   fileFilter:="pdf Files (*.pdf), *.pdf")
'Wenn der Dialog nicht abgebrochen wurde, dann
If strName <> "" Then
'Druckbereich als pdf speichern
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    strName, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    False
'Ende Wenn der Dialog nicht abgebrochen wurde, dann
End If
End Sub 


[Mike4711]

Hallo Andre,


super Erklärung wieder.
Genauso brauche ich den Code.  :)

Hab ihn  so übernommen und nutze Ihn auch schon.

Vielen Dank für dein Hilfe.

Grüße Mike