Grüezi Reinhard
ich habe gerade gesucht, finde aber deinen Beitrag nicht mehr,
da ging es um die Excel4-Makro Hilfe Datei o.ä.
Soweit ich mich erinnere sagtest du da, du hättest eine
Excel4Makro-Variante gebastelt die nicht so langsam ist wie
printout.
Es geht da um das PageSetup-Objekt, das grottenlangsam ist und das mit xl4Makros sehr viel flotter abläuft.
Einen direkten Einfluss auf das Drucken selbst konnte ich nicht feststellen.
Magst du die Variante hier zeigen?
Aber klar; hier ist sie (nicht allzu vorbildlich dokumentiert, aber lauffähig
):
Sub Druckvorbereitung\_xl4()
Dim Foot\_L As String
Dim Foot\_C As String
Dim Foot\_R As String
With ActiveSheet.PageSetup
Foot\_L = .LeftFooter
Foot\_C = .CenterFooter
Foot\_R = .RightFooter
End With
'head = """"""
foot = """&L&8&F, &A, &D, &T&C" & Foot\_C & "&R" & Foot\_R & """"
pLeft = "0.69"
pRight = "0.38"
Top = "0.47"
Bot = "0.47"
hdng = "False"
grid = "False"
h\_cntr = "True"
v\_cntr = "False"
orient = 1
paper\_size = 9
pscale = "True"
pg\_num = ""
pg\_order = ""
bw\_cells = ""
quality = ""
head\_margin = "0.37"
foot\_margin = "0.27"
Notes = "False"
Draft = "False"
pSetUp = "Page.Setup(" & head & "," & foot & "," & pLeft & ","
pSetUp = pSetUp & pRight & "," & Top & "," & Bot & "," & hdng & ","
pSetUp = pSetUp & grid & "," & h\_cntr & "," & v\_cntr & ","
pSetUp = pSetUp & orient & "," & paper\_size & "," & pscale & ","
pSetUp = pSetUp & pg\_num & "," & pg\_order & "," & bw\_cells & ","
pSetUp = pSetUp & quality & "," & head\_margin & ","
pSetUp = pSetUp & foot\_margin & "," & Notes & "," & Draft & ")"
Set ws = ActiveSheet
Application.ExecuteExcel4Macro pSetUp
End Sub
Mit freundlichen Grüssen
Thomas Ramel
–
- MVP für Microsoft-Excel -
[Win XP Pro SP-2 / xl2003 SP-3]