Druckmakro geht nicht
27.03.2009 11:18:20
lutz
ich versuche ein Druckmakro zu schreiben, dass schneller geht als die normale Funktion.
Sub PrintF1()
Dim Head1 As String
Dim Foot1 As String
Head1 = "________&8& chr(10)& Text& Seite &P/&N, Date &D; &T Uhr"
Foot1 = "Testfoot"
ExecuteExcel4Macro "PAGE.SETUP(Head1,Foot1,0.748031496062992,0.196850393700787,0. _
590551181102362,0.984251968503937,0.118110236220472,0.118110236220472,0,0,1,,1,#N/A,1,0,,0.2,0. _
3,0,0)"
End Sub
Leider übernimmt der die Einträge Head1 und Foot1 nicht in das den Druck. Wenn ich die Inhalte von Head1 und Foot1 direkt in die Klammer eintrage geht es aber.
Weiß jemand Rat?
Vielen Dank
Gruß
Lutz