Problem with "custom footer" size

Sep 28, 2004 2 Replies

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" 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.

"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

Join the Discussion

Have something to add? Share your thoughts — no account required.

Didn't find your answer?

Ask the community — no account required