Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Constantin84 vom 13.08.2019, 21:57 Options
Excel Makro zum Drucken
Hallo,
ich habe ein Makro fuer das Drucken eines bestimmten Bereichs programmiert. Das Drucken klappt auch einwandfrei. Da sich der Druckbereich allerdings aus zwei Teilen zusammensetzt, druckt Excel die beiden Bereiche auch auf zwei Seiten. Ich brauche allerdings alles zusammen / nebeneinander auf einer Seite. Kann mir hier jemand helfen? Folgend die Visual Basic Zeilen, die das Makro programmieren:
Sub Print_Actual_Savings()
'
' Print_Actual_Savings Macro
' Macro recorded 8/10/2007
'
'
Sheet1.PageSetup.PrintArea = "A1:F92,AH1:BG96"
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$92,$AH$1:$BG$96"
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.25)
.RightMargin = Application.InchesToPoints(0.25)
.TopMargin = Application.InchesToPoints(0.25)
.BottomMargin = Application.InchesToPoints(0.25)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = True
.PrintGridlines = True
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
End With
Application.Dialogs(xlDialogPrint).Show
End Sub
ich habe ein Makro fuer das Drucken eines bestimmten Bereichs programmiert. Das Drucken klappt auch einwandfrei. Da sich der Druckbereich allerdings aus zwei Teilen zusammensetzt, druckt Excel die beiden Bereiche auch auf zwei Seiten. Ich brauche allerdings alles zusammen / nebeneinander auf einer Seite. Kann mir hier jemand helfen? Folgend die Visual Basic Zeilen, die das Makro programmieren:
Sub Print_Actual_Savings()
'
' Print_Actual_Savings Macro
' Macro recorded 8/10/2007
'
'
Sheet1.PageSetup.PrintArea = "A1:F92,AH1:BG96"
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$92,$AH$1:$BG$96"
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.25)
.RightMargin = Application.InchesToPoints(0.25)
.TopMargin = Application.InchesToPoints(0.25)
.BottomMargin = Application.InchesToPoints(0.25)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = True
.PrintGridlines = True
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
End With
Application.Dialogs(xlDialogPrint).Show
End Sub
Ähnliche Themen
Makros - zweiten Drucker als Symbol in die Symbolleiste einfügen
Mikoop 24.11.2006 - 4092 Hits - 1 Antwort
Excel Makro erscheint nicht in Makroliste
H.E.N.K 01.02.2007 - 218 Hits - 1 Antwort
Excel Druck Makro mit bestimmten Drucker
Ric 07.02.2007 - 122 Hits - 1 Antwort
drucken Makro in excel funktioniert nicht
Eri63 22.05.2008 - 75 Hits - 17 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
