Thema Datum  Von Nutzer Rating
Antwort
Rot speichern und drucken
07.06.2018 22:01:17 Sven
NotSolved
09.06.2018 14:58:03 Gast4137
NotSolved
15.06.2018 12:13:38 Sven
NotSolved
05.07.2018 14:14:33 Gast65052
NotSolved
05.07.2018 15:49:16 Gast71106
NotSolved
09.07.2018 15:26:23 Gast98504
NotSolved

Ansicht des Beitrags:
Von:
Sven
Datum:
07.06.2018 22:01:17
Views:
866
Rating: Antwort:
  Ja
Thema:
speichern und drucken

Hallo zusammen,

 

ich hoffe man kann mir hier helfen.

ich habe bisher folgendes makro zusammengeschustert und möchte dies als pdf speichern.

es wird zwar als pdf gespeichert aber es läst sich nicht mit adobe acrobat reader öffnen, was habe ich da falsch gemacht ?

Sub speichern()
Worksheets("Verbrauchsrechnung").Activate
Dim var_Speichere As Variant
Dim str_FileName As String
   str_FileName = "Garten_" & Range("F12") & Range("G8") & "_" & Range("H13") & "_" & Range("C7") & ".pdf"
    var_Speichere = Application.GetSaveAsFilename( _
        InitialFileName:=str_FileName, _
        FileFilter:="PDF (*.pdf), *.pdf", _
        Title:="Datei speichern unter...")
        If var_Speichere = False Then Exit Sub
        
    ActiveWorkbook.SaveAs "Garten_" & Range("F12") & Range("G8") & "_" & Range("H13") & "_" & Range("C7") & ".pdf"
End Sub

 

 

und was kann ich da noch hinzufügen um es auch gleichzeitig ausdrucken zu können?

Es sollen aber nur tabelle1, tabelle3 und tabelle4 ausgedruckt werden.

 

Vielen Dank schon mal für die hilfe.


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
Rot speichern und drucken
07.06.2018 22:01:17 Sven
NotSolved
09.06.2018 14:58:03 Gast4137
NotSolved
15.06.2018 12:13:38 Sven
NotSolved
05.07.2018 14:14:33 Gast65052
NotSolved
05.07.2018 15:49:16 Gast71106
NotSolved
09.07.2018 15:26:23 Gast98504
NotSolved