allegeime Druckeinstellung fürs Workbook
01.02.2006 15:31:43
Korl
ich habe jetzt bevor ich hier schreibe in der Recherche gewühlt nun nicht das passende für mich finden können.
Ich möchte in meinem Workbook erreichen, wenn ich einen Ausdruck tätigen möchte, stets die Dinge vorher und nachher ausgeführt werden die im nachfolgenden Code stehen.
Sub drucken()
Set wksA = ActiveSheet
lLetzteA = IIf(wksA.Range("A65536") "", 65536, wksA.Range("A65536").End(xlUp).Row)
Application.ScreenUpdating = False
With wksA.PageSetup
.PrintArea = "B1:E" & lLetzteA + 9
.PrintTitleRows = "$1:$1"
.PrintTitleColumns = ""
.LeftMargin = Application.InchesToPoints(0.984251968503937)
.RightMargin = Application.InchesToPoints(0.393700787401575)
.Zoom = 100
End With
Call Rahmen_setzen_gestrichelt
Call Erläuterung
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Call Rahmen_entfernen
Call Erläuterung_entfernen
Application.ScreenUpdating = True
End Sub
Bislang habe ich es mit einer Tastenkombinat ausführen lassen.
Ich weis nicht wie ich die Ereignissprozedur in "diese Arbeitsmappe" hinbekomme.
Kann mir bitte jemand helfen, wie ich das Ereignis definieren muß ?
Gruß Korl