Thema Datum  Von Nutzer Rating
Antwort
Rot Druckereinstellungen im VBA Code
04.07.2021 14:11:24 Marco
NotSolved
04.07.2021 14:17:34 Werner
NotSolved
04.07.2021 14:24:54 Gast5939
NotSolved
05.07.2021 07:55:10 Mase
NotSolved

Ansicht des Beitrags:
Von:
Marco
Datum:
04.07.2021 14:11:24
Views:
71
Rating: Antwort:
  Ja
Thema:
Druckereinstellungen im VBA Code

Hallo Zusammen

 

Ich habe bei meinem Makro das Problem, dass ich das PDF auf zwei Seiten drucken müsste und ohne Ränder. 
Bei meinem momentanen Makro speichert es mir ein "normales"PDF auf einer Seite ab.
Wie kann ich das ändern?

Das Makro speichert lediglich 5 Tabellenblätter als PDF und legt sie in einem definierten Pfad ab (im sheet "mail" range B18) ab.

 

Über einen Vorschlag wäre ich sehr froh.

 

Hier der VBA-Code:

Sub Makro2()

    Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4")).Select

    Sheets("Tabelle1").Activate

    ActiveWindow.ScrollWorkbookTabs Sheets:=1

    ActiveWindow.ScrollWorkbookTabs Sheets:=1

    ActiveWindow.ScrollWorkbookTabs Sheets:=1

    Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4", _

        "Tabelle5")).Select

    Sheets("Tabelle1).Activate   

Dim Dateiname As String

Dim dialog As Object

Dim pfad As String

Dim datei As String

pfad = Sheets("mail").Range("B18")

Set dialog = Application.FileDialog(msoFileDialogSaveAs)

With dialog

.InitialFileName = pfad & datei

.Show

End With

If dialog <> False Then dialog.Execute

Dateiname = Sheets("mail").Range("B14")

Sheets("Tabelle1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dateiname, Quality:=x1qualitystandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub


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 Druckereinstellungen im VBA Code
04.07.2021 14:11:24 Marco
NotSolved
04.07.2021 14:17:34 Werner
NotSolved
04.07.2021 14:24:54 Gast5939
NotSolved
05.07.2021 07:55:10 Mase
NotSolved