Thema Datum  Von Nutzer Rating
Antwort
25.08.2023 12:42:26 Max
NotSolved
25.08.2023 15:32:20 Gast29355
NotSolved
Rot drucken - Druckansicht
 30.08.2023 16:09:47 Max
NotSolved

Ansicht des Beitrags:
Von:
Max		 Datum:
30.08.2023 16:09:47		 Views:
114		 Rating:
     
Antwort:
  Ja
Thema:
drucken - Druckansicht		 
Hi Gast29355,

danke soweit.
Lässt sich das in einen bestehenden code integrieren:
(ich habe es probiert, bekomme es aber nicht hin..)


Sub SaveWorkshetAsPDF()

ActiveSheet.Outline.ShowLevels RowLevels:=1, ColumnLevels:=1

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="H:\Documents\pdf´s\liste_MH_" & Format(Now, "dd-mm-yyyy_") & ".pdf" _
  , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
  :=False, OpenAfterPublish:=True

ActiveSheet.Outline.ShowLevels RowLevels:=8, ColumnLevels:=8

End Sub



Danke + GRüße,

Max

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
25.08.2023 12:42:26 Max
NotSolved
25.08.2023 15:32:20 Gast29355
NotSolved
Rot drucken - Druckansicht
 30.08.2023 16:09:47 Max
NotSolved