EXCEL Sheet by VBA code printed as PDF - lines are missing in PDF file

Hallo Olaf,

du willst also alle Blätter in einer PDF-Datei speichern?

Dann musst du die ausgewählten Blätter in ein neues Workbook kopieren und dann die komplette Mappe als PDF drucken:

Sub Test()

Dim varSh As Variant, varTmp() As Variant

Dim i As Integer, n As Integer

Dim Pfad As String, FN As StringPfad = ThisWorkbook.Path & "\"

'Hier die Dateiendung deiner Excel-Datei anpassen

FN = Replace(ThisWorkbook.Name, ".xls", "")varSh = Sheets("Druck").Range("A1:B10")

For i = LBound(varSh) To UBound(varSh)

   If varSh(i, 2) = "x" Then

      ReDim Preserve varTmp(n)

      varTmp(n) = varSh(i, 1)

      n = n + 1

   End If

Next

Sheets(varTmp).Copy

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

   Pfad & FN & ".pdf", Quality:=xlQualityStandard, _

   IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

   False

ActiveWorkbook.Close savechanges:=False

End Sub

Claus

Hallo Marco,

mit dem geposteten Makro wird die gesamte Arbeitsmappe als PDF gespeichert. Da hättest du am Code nichts ändern müssen.

Wenn du allerdings nur die Monatsblätter speichern willst, musst du die gewünschten Blätter zuerst selektieren:

Sub PDFExport()

Dim FN As String, myPath As String
FN = Year(Date) & " Stundenreport " & Sheets("Dezember").Range("C3") & ".pdf"

myPath = ThisWorkbook.Path

Sheets(Array("Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", _

    "September", "Oktober", "November", "Dezember")).Select

Sheets("Januar").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

    myPath & "/" & FN, Quality:=xlQualityStandard, _

    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

    False

End Sub

Claus

Auf meinem MacBook Pro (OS 10.13.5) habe ich Office 365 installiert. Nun möchte ich aus der PowerPoint mit vielen Bildern ein kleines PDF erzeugen. Bisher konnte ich "Drucken", "PDF" und "als PostScript sichern". In Adobe Distiller konnte ich aus der .ps-Datei
ein PDF erzeugen. Leider funktioniert das nicht mehr gut. Die Schriften und Linien werden völlig anders angezeigt. Wie muss ich vorgehen?

Beste Grüsse, Reto Bieli

I have Office 365 installed on my MacBook Pro (OS 10.13.5). Now I want to create a small PDF from the PowerPoint with many pictures. So far I could "print", "PDF" and "as PostScript secure". In Adobe Distiller, I was able to create a PDF from the .ps file.
Unfortunately that does not work well anymore. The fonts and lines are displayed completely differently. How should I proceed?

Best regards, Reto Bieli

Hallo,

der Code aus der Antwort vor diesem Code lässt Leerzeilen:

Private Sub Worksheet_Activate()

Dim LRow As Long

Dim i As Long

Dim strPfad As String

Dim FrName As String
strPfad = "F:\Firma\"LRow = Sheets("Master").Cells(Rows.Count, 2) _

      .End(xlUp).RowFor i = 11 To LRow

     FrName = Sheets("Master").Cells(i, 2)

     With Sheets("Einnahmen-Ausgaben")

         If Len(Sheets("Master").Cells(i, 2)) > 0 Then

             .Hyperlinks.Add _

             Anchor:=.Cells(i + 6, 2), _

             Address:=strPfad & _

                 Sheets("Master").Cells(i, 2) & ".pdf", _

             TextToDisplay:=FrName

         End If

     End With

 Next

 End Sub

Claus

Hallo,

sorry, da habe ich dich falsch verstanden. Dann muss der Code doch in Master, aber im Code müssen die Blattnamen getauscht werden:

Private Sub Worksheet_Activate()

Dim LRow As Long, i As Long, n As Long

Dim strPfad As String, FrName As String
strPfad = "F:\Firma\"LRow = Sheets("Einnahme-Ausgabe").Cells(Rows.Count, 2) _

     .End(xlUp).Row

n = 17

For i = 11 To LRow

    FrName = Sheets("Einnahme-Ausgabe").Cells(i, 2)

    With Sheets("Master")

        If Len(Sheets("Einnahme-Ausgabe").Cells(i, 2)) > 0 Then

            .Hyperlinks.Add _

            Anchor:=.Cells(n, 2), _

            Address:=strPfad & _

                Sheets("Einnahme-Ausgabe").Cells(i, 2) & ".pdf", _

            TextToDisplay:=FrName

            n = n + 1

        End If

    End With

Next

End Sub

Claus