Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
892to896
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Druckbereich festlegen

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

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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige