Excel: Speichern ausgewählter Arbeitsblätter in PDF-Datei

Question

Obwohl diese Fragen bereits gestellt wurde, fand ich keine echte Antwort dafür. Ich muss programmgesteuert Arbeitsblätter in einer Arbeitsmappe auswählen und sie in PDF-Datei speichern OHNE temporäre Arbeitsmappe erstellen und ausgewählte Arbeitsblätter darauf kopieren.

Oder wie erstellt Arbeitsmappe, ohne es anzuzeigen - also im Speicher und dann auf HD? Dies ist wiederum kann die erste Frage zu lösen helfen ...

Answer 1

Try this:

Sub SaveToPdf() 

Dim ws As Worksheet 

Dim sfName As String 

For Each ws In Worksheets 

sfName = ws.Name 
sfName = "C:\Misc\" & sfName & ".pdf" 

     ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
     sfName, Quality:= _ 
     xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ 
     OpenAfterPublish:=False 

Next ws 


End Sub 

Sie müssen sicher, dass Ihre Druckbereiche auf jedes Blatt machen gesetzt wurden zuerst denke ich