Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Makro um Pdf zu erzeugen | Herbers Excel-Forum


Betrifft: Makro um Pdf zu erzeugen von: Frank Meiners
Geschrieben am: 23.01.2012 21:00:52

Hallo Forum,

wie kann ich Tabellenblätter mit Hilfe eines Makros drucken, mit dem Makrorecorder funktioniert es nicht, habe das Forum auch schon durchsucht und die Beiträge haben mein Problem nicht wirklich gelöst.

gruss
frank

  

Betrifft: AW: Makro um Pdf zu erzeugen von: Josef Ehrensberger
Geschrieben am: 23.01.2012 21:13:46


Hallo Frank,

warum nicht einfach "Speichern unter" > PDF ?




« Gruß Sepp »



  

Betrifft: AW: Makro um Pdf zu erzeugen von: Mister-B
Geschrieben am: 23.01.2012 23:57:20

Vielleicht so,

Sub sendMail()
Dim mePDFD As String
Dim MyOutApp As Object, MyMessage As Object

    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ThisWorkbook.Path & "\testPDF.pdf", Quality:=xlQualityStandard _
        , IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish _
        :=False

mePDFD = ThisWorkbook.Path & "\testPDF.pdf"
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
    With MyMessage
        .To = "Meine E_mail Adresse"
        .Subject = "hier ist die Test PDF Datei" 'Betreffzeile
        .body = "geht doch!"
        .Attachments.Add mePDFD
        .Display
        '.Send
        Kill mePDFD
    End With
    Set MyOutApp = Nothing
    Set MyMessage = Nothing
End Sub
Gruß
Martin


  

Betrifft: AW: Makro um Pdf zu erzeugen von: KlausF
Geschrieben am: 24.01.2012 15:47:58

Hallo Frank,
probier mal

Sub SaveAsPDF()

Dim sPath As String
  sPath = ThisWorkbook.Path
  sPath = IIf(Right$(sPath, 1) = Application.PathSeparator, sPath, sPath & Application. _
PathSeparator)
    If sPath = "" Then
       MsgBox "Die Datei muß zuerst gespeichert werden"
    Exit Sub
End If

Dim rng As Range
Set rng = ActiveSheet.Range("A1:G50")  'ANPASSEN

On Error GoTo ENDE

Application.DisplayAlerts = False
Dim PDF_NAME As String
PDF_NAME = "TEST"  'ANPASSEN

rng.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
sPath & PDF_NAME & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Application.DisplayAlerts = True

Exit Sub

ENDE:
Application.DisplayAlerts = True

End Sub

Gruß
Klaus


Beiträge aus den Excel-Beispielen zum Thema "Makro um Pdf zu erzeugen"