Druckbereich festlegen

Forumthread: Druckbereich festlegen

01.08.2007 14:44:00

Flüchtling

Hallo alle zusammen,
ich muss zur Zeit ca. 64 Exetabellen mit insgesamt ca. 200 Exel-Sheets bearbeiten. Da ich nicht jede Aktion 200 mal machen möchte versuche ich alles so gut wie möglich über Makros zu machen.
Meine Frage ist nun:
Gibt es eine schnelle Möglichkeit den Druckbereich für mehrere Sheets festzulegen auch wenn diese unterschiedliche Breiten haben.
So in der Art: Drucke Spalte A-K und passe die Auflösung automatisch an.
Vielen dank im Voraus

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Druckbereich festlegen

Orakel
AW: Druckbereich festlegen

03.08.2007 16:17:51

Flüchtling

AW: Druckbereich festlegen

Orakel

Hey,
du könntest mit folgendem Code in ein allgemeines Modul jede Tabelle der Datei so einstellen, dass egal wieviel Seiten die Tabelle hätte, alles auf eine Seite passt. Könnte nur sehr klein werden.


Sub oneside_all()
Application.ScreenUpdating = False
Dim I As Integer
For I = Worksheets.Count To 1 Step -1
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.787401575)
.RightMargin = Application.InchesToPoints(0.787401575)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 300
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
End With
Next I
Application.ScreenUpdating = True
End Sub

Dauert alles ein wenig.
Grüße Orakel

AW: Druckbereich festlegen

03.08.2007 16:17:51

Flüchtling

Danke, für den Tipp !!
Leider fehlen immer noch Spalten.
Ich glaube mittlerweile, dass Druckeinstellungen einfach nicht mit einem Makro übertragbar sind.

Beliebteste Forumthreads (12 Monate)

Forumthread: Druckbereich festlegen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread