Thema Datum  Von Nutzer Rating
Antwort
11.08.2019 19:25:52 Gast74530
NotSolved
11.08.2019 22:39:14 Gast29286
NotSolved
11.08.2019 22:59:34 Gast38882
NotSolved
12.08.2019 11:21:25 Torsten
NotSolved
Rot PDF generieren mit variabler Länge der Tabelle
 12.08.2019 13:45:55 Torsten
NotSolved

Ansicht des Beitrags:
Von:
Torsten		 Datum:
12.08.2019 13:45:55		 Views:
512		 Rating:
     
Antwort:
  Ja
Thema:
PDF generieren mit variabler Länge der Tabelle

Hallo,

und hier nochmal eine Komplettloesung fuer beide Probleme. Zum Dateinamen veraendern habe ich mal eine Inputbox eingebaut, die den vorgeschlagenen Dateinamen anzeigt. Dieser kann dann dort veraendert werden. Bei Klick auf Ok wird der neue Name dann in die Variable uebernommen.

Sub PDF_generieren()

Dim Datei As String, Pfad As String, DateiN As String
Dim letzte As Long
Datei = "Entladebericht Kunde xx.xx.xxxx"
Pfad = "C:\Users\Christian\Desktop\Christian's Unterlagen\VBA\Test Entladebericht\"
   
DateiN = InputBox("Bitte Dateiname anpassen", "Dateiname", Datei)
If Trim(DateiN) = "" Then Exit Sub

With Sheets(1)
    letzte = .Cells(Rows.Count, 2).End(xlUp).Row 'hier wird die letzte benutzte Zelle in Spalte B ermittelt
    .PageSetup.Orientation = 2 'Querformat'
    .PageSetup.Zoom = False
    .PageSetup.FitToPagesWide = 1
    .Range(Cells(5, 2), Cells(letzte, 16)).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pfad & DateiN, openafterpublish:=True
End With

End Sub

Viel Spass.

Gruss Torsten

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
11.08.2019 19:25:52 Gast74530
NotSolved
11.08.2019 22:39:14 Gast29286
NotSolved
11.08.2019 22:59:34 Gast38882
NotSolved
12.08.2019 11:21:25 Torsten
NotSolved
Rot PDF generieren mit variabler Länge der Tabelle
 12.08.2019 13:45:55 Torsten
NotSolved