|
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
|