Wieso Druckt die Fußleiste nicht ?
10.01.2005 16:55:57
Walter
habe ein Makro, damals mit Unterstützung Forum, für das Drucken einer Datei,
durch ein Command-Button auf einer UF gestartet.
Die Fußleiste mit Namen aus der Datei F12 soll gedruckt werden.
Warum geht das nicht?
Hier mein Makro:
'----------- Druck-Button Kalkulationsblatt --------------------------------------
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim kbl_verkäufer
kbl_verkäufer = Sheets("Kulanzblatt-VK").[F12]
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.511) 'linker Rand
.RightMargin = Application.InchesToPoints(0.236) 'rechter Rand
.TopMargin = Application.InchesToPoints(0.236) 'oberer Rand
.BottomMargin = Application.InchesToPoints(0.314) 'unterer Rand
.HeaderMargin = Application.InchesToPoints(0.157) 'Kopfzeile
.FooterMargin = Application.InchesToPoints(0.157) 'Fußzeile
.Zoom = False
'.Orientation = xlLandscape 'Querformat
.Orientation = xlPortrait 'Hochformat
.LeftFooter = "&""Courier New,Standard""&6&F" & "/ erstellt: " & kbl_verkäufer
.RightFooter = "&""Courier New,Standard""&6Version 5.0 &F &D/&T"
End With
Sheets("Kulanzblatt-VK").Select
Range("B1:R80").Select
ActiveSheet.PageSetup.PrintArea = "$B$1:$R$80"
Range("C1").Select
' ActiveWindow.SelectedSheets.PrintPreview 'Seitenansicht
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Worksheets("Kulanzblatt-VK").Select
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True, Password:="ww"
TextBox2.SetFocus
With TextBox2
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Application.ScreenUpdating = False
End Sub
Gruß Walter mb