Fußzeile
08.06.2003 12:02:45
Gerd
Ich habe hier ein makro in der recherche gefunden mit dem ich eine Fußzeile nur auf der letzten seite erstelle. nun wird sie aber immer sofort ausgedruckt. Dieses soll aber nicht geschehen der ausdruck soll mit einer juserform gemacht werden , wo man wählen kann 1 mal drucken oder 2 mal drucken. Kann man dieses Makro so umwandeln das es nicht sofort ausdruckt und das man anstatt des ausdrucks eine juserform einbaut wo dann gedruckt wird?
Die juserform für den ausdruck besteht .
Sub MyPrintout()
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=ExecuteExcel4Macro("Get.Document(50)") - 1, Copies:=1
With ActiveSheet.PageSetup
.PrintArea = ""
.LeftHeader = ""
.LeftFooter = "Linker Abschnitt"
.CenterFooter = "Mittlerer Abschnitt"
.RightFooter = "Rechter Abschnitt"
End With
ActiveWindow.SelectedSheets.PrintOut From:=ExecuteExcel4Macro("Get.Document(50)"), To:=ExecuteExcel4Macro("Get.Document(50)"), Copies:=1
With ActiveSheet.PageSetup
.PrintArea = ""
.LeftHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
End With
End Sub