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
Reply to
Jean Marc BRUN
Loading thread data ...
"Jean Marc BRUN" a écrit dans le message de news:4159153f$0$11739$ snipped-for-privacy@news.free.fr...
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.
Reply to
Jean Marc BRUN
"Jean Marc BRUN" a écrit dans le message de news:4159213d$0$11728$ snipped-for-privacy@news.free.fr...
Was something wrong with the code, SW turns it to a "*.swp", and it works nicely
Reply to
Jean Marc BRUN

PolyTech Forum website is not affiliated with any of the manufacturers or service providers discussed here. All logos and trade names are the property of their respective owners.