Bestimmte Zeilen/ Spalten nicht mitdrucken
30.07.2008 22:23:00
raceface
Ich habe verschiedene Tabellen, aus denen ich per Script nur bestimmte Zeilen und Spalten (z.B. A1-H49+K1-K49) ausdrucken möchte. Ich habe schon ein Makro gebastelt, mit dem ich den Druckbereich festlegen kann, nur leider nicht über mehrere Bereiche. Dann habe ich versuch einfach Spalten auszublenden, die werden aber trotzdem mitgedruckt, wenn sie in dem Druckbereich sind, den ich im Makro festlege.
Hier der Code
Sub drucken()
With Sheets("Rack1")
Columns("I:K").EntireColumn.Hidden = True
.PageSetup.PrintArea = Range("H10:L21").Address
.PageSetup.LeftMargin = Application.InchesToPoints(1)
.PrintOut
.PageSetup.PrintArea = ""
Columns("I:K").EntireColumn.Hidden = False
End With
End Sub
Hat jemand eine Idee?
Danke
Andy
Anzeige