Problem with "custom footer" size

Hello happy taxpayers...

I have a custom footer that tells date, time and file name when printing. In
SW2001+, I had to set it to print at a 12 mm size to have it the way I want,
ie 1.5 mm. (I want it to be also used as microletters to tell if it's an
original or a copy)

With 2004 (sp4.2), the footer now prints at the correct size, wayyyy too
big. So I have thousands of files we need to go through and change this
footer size.

I have tried to record a macro, but it calls "Part.PrintDirect", and does
nothing to the drawing.

Just a macro that we would run (by hand) on each drawing would be enough for
us. I will be digging into "sendkeys" to try to find a solution, but any
help would be welcomed.

TIA

 

"Jean Marc BRUN" <jean-marc.brun _arobace/at_ tgcp.fr> a écrit dans le
message de
I will be digging into "sendkeys" to try to find a solution, but any

Thanks to Joe Jones'site, NHCad, the "sendkeys" command works. But it has to
be an "*.swb"

Here is the code, in case anyone is interrested:

'
****************************************************************************
**
' C:\TEMP\swx255\taille pied page.swb - macro recorded on 28/09/04 by JM
BRUN
'
****************************************************************************
**
Dim swApp As Object
Dim Part As Object
Dim Gtol As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()
SendKeys
"%fp{tab}e{tab}i{tab}p{tab}{tab}{tab}{tab}1.6{enter}{enter}{tab}{enter}{esc}
"
End Sub

Sets the footer size to 1.6 mm, works with a french SW.

 

Was something wrong with the code, SW turns it to a "*.swp", and it works
nicely