PDF aus Tabelle unter neuem Namen speich

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Code: [Cc] Sub ExportAlsPDF() Dim sBer As String, sFilename As String, sPathname As String ' <<<Parameter anpassen>>> sPathname = ThisWorkbook.Path & "\" sFilename = Range("A1").Value & Format$(Date, "-yyyy-mm-dd") & ".pdf" sBer = "B1:D10" ActiveSheet.Range(sBer).ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=sPathname & sFilename, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub

Sub ExportAlsPDF() Range("C4:D13").Select ActiveSheet.PageSetup.PrintArea = "$C$4:$D$13" ChDir "/Users/Piri/Dektop/" Dim sBer As String, sFilename As String, sPathname As String ' >> sPathname = ThisWorkbook.Path & "/Users/piri/Desktop/" sFilename = Range("A2").Value & Format$(Date, "-yyyy-mm-dd") & ".pdf" sBer = "B1:D10" ActiveSheet.Range("C4:D13").ExportAsFixedFormat Type:=xlTypePDF, _ FileName:=sPathname & sFilename, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub

Hallo Werner,
bei diesem Code benötigst Du den oberen Teil des Codes nicht. Es ist egal, ab ein Druckbereich gesetzt wurde.
Außerdem scheinst Du den Desktop als Speicherort nehmen zu wollen; da kannst Du dann nicht noch den Pfad der aktuellen Mappe vorsetzen...
Auch solltest Du nicht die Slashe nehmen, sondern Backslashe.

Code:


[Cc]

Sub ExportAlsPDF()
  Dim sFilename As String, sPathname As String
  
' <<>>
  sPathname = "C:&bsol;Users&bsol;piri&bsol;Desktop&bsol;"
  sFilename = Range("A2").Value & Format$(Date, "-yyyy-mm-dd") & ".pdf"


  ActiveSheet.Range("C4:D13").ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:=sPathname & sFilename, _
      Quality:=xlQualityStandard, IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Public Sub ExportAlsPDF() Dim sFilename As String, sPathname As String sPathname = ThisWorkbook.Path & Application.PathSeparator sFilename = Range("A2").Value & Format$(Date, "-yyyy-mm-dd") & ".pdf" ActiveSheet.Range("C4:D13").ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=sPathname & sFilename, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub

Beliebteste Forumthreads (12 Monate)

PDF aus Tabelle unter neuem Namen speich

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

PDF aus Tabelle unter neuem Namen speich

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread