Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Druckbereich über Button als PDF speichern
#1
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
to top
#2
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:=xlTypePDFFilename:= _
        
"C:\Test\Kopie_Mikes_Einkauf_002.pdf"Quality:=xlQualityStandard_
        IncludeDocProperties
:=TrueIgnorePrintAreas:=FalseOpenAfterPublish:= _
        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:=xlTypePDFFilename:= _
    strName
Quality:=xlQualityStandard_
    IncludeDocProperties
:=TrueIgnorePrintAreas:=FalseOpenAfterPublish:= _
    False
'Ende Wenn der Dialog nicht abgebrochen wurde, dann
End If
End Sub 
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
[-] Folgende(r) 1 Benutzer sagt Danke an schauan für diesen Beitrag:
Mike4711
to top
#3
Hallo Andre,


super Erklärung wieder.
Genauso brauche ich den Code.  Smile

Hab ihn  so übernommen und nutze Ihn auch schon.

Vielen Dank für dein Hilfe.

Grüße Mike
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Fehler in VBA-Code: PDF speichern-Button MrHoef 2 26 Gestern, 11:42
Letzter Beitrag: MrHoef
  VBA - Nur Werte statt Formeln und Druckbereich per Mail versenden schusti77 7 137 06.01.2017, 10:06
Letzter Beitrag: schusti77
  In menüleiste Button michel34497 3 102 09.12.2016, 06:14
Letzter Beitrag: mumpel
  Problem mit dem druckbereich angeber0815 15 353 03.11.2016, 17:03
Letzter Beitrag: angeber0815
  Druckbereich VBA triphaze 3 155 28.10.2016, 19:07
Letzter Beitrag: schauan
  Druckbereich Robbie1985 3 140 14.09.2016, 14:43
Letzter Beitrag: schauan
  Druckbereich auf Autofilterergebnis definieren StefanGruber_LA 14 672 01.09.2016, 16:28
Letzter Beitrag: Kuwer
Question Zwei Tabellenblätter beim Speichern - in eine andere Daten zusätzlich speichern? randyh 3 358 29.04.2016, 15:16
Letzter Beitrag: schauan
  VBA Druckbereich als PDF speichern ReneSaince 1 663 02.04.2016, 05:00
Letzter Beitrag: schauan
  per Makro alle Tabellenblätter mit gleichem Druckbereich drucken Mike4711 10 1.270 04.03.2016, 17:19
Letzter Beitrag: Mike4711

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste