Thema Datum  Von Nutzer Rating
Antwort
Rot Alle Spalten auf eine Seite funktioniert nicht
01.05.2022 21:31:02 Xtreme
NotSolved
02.05.2022 19:12:01 xlKing
NotSolved
02.05.2022 20:20:49 Xtreme
NotSolved
02.05.2022 23:10:28 xlKing
NotSolved
03.05.2022 08:17:47 Xtreme
NotSolved
03.05.2022 09:43:14 RPP63
NotSolved
03.05.2022 11:20:59 Xtreme85
NotSolved

Ansicht des Beitrags:
Von:
Xtreme
Datum:
01.05.2022 21:31:02
Views:
123
Rating: Antwort:
  Ja
Thema:
Alle Spalten auf eine Seite funktioniert nicht

Hallo Leute,

ich habe ein Problem mit meinem Makro. Ich habe einen Button erstellt, der mit einem Klick folgendes macht:

- meine Rechnungsnummer um 1 erhöhen (neue Rechnungsdaten werden automatisch gezogen)

- Speicherung der Rechnung als PDF in einem Ordner (Voransicht erhalte ich direkt als PDF geöffnet)

- Drucken der Rechnung mit meinem lokalen Drucker

Der letzte Punkt macht mir Probleme. Denn Excel ändert permanent die Skalierung, sodass ich immer den Text der zweiten Seite schon auf der ersten Seite unten erhalte. Gibt es einen verlässlichen Quellcode, der die Skalierung einstellt? Hier mein Quellcode:

 

Option Explicit

Sub ErhoehenSpeichernDrucken()

'Rechnungsnummer um 1 erhöhen

Range("H14").Select
ActiveCell.FormulaR1C1 = ActiveSheet.Range("H14").Value + 1
ActiveSheet.Range("$A$20:$H$41").AutoFilter Field:=2, Criteria1:="="
ActiveSheet.Range("$A$20:$H$41").AutoFilter Field:=2, Criteria1:="<>"
    
'Längsformat einstellen
Sheets("Rechnung").PageSetup.Orientation = 1 '1 = Längsformat und 2 = Querformat

'Format automatisch anpassen
Sheets("Rechnung").PageSetup.Zoom = False
Sheets("Rechnung").PageSetup.FitToPagesWide = 1
Sheets("Rechnung").PageSetup.FitToPagesTall = 2

'Rechnung als PDF speichern
Sheets("Rechnung").Range("A1:H109").ExportAsFixedFormat xlTypePDF, _
Filename:=ThisWorkbook.Path & "PFAD" & Range("H14").Value & ".pdf", Openafterpublish:=True

'Aktiviertes Tabellenblatt drucken
ActiveSheet.PrintOut

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 Alle Spalten auf eine Seite funktioniert nicht
01.05.2022 21:31:02 Xtreme
NotSolved
02.05.2022 19:12:01 xlKing
NotSolved
02.05.2022 20:20:49 Xtreme
NotSolved
02.05.2022 23:10:28 xlKing
NotSolved
03.05.2022 08:17:47 Xtreme
NotSolved
03.05.2022 09:43:14 RPP63
NotSolved
03.05.2022 11:20:59 Xtreme85
NotSolved