Error on ExecuteExcel4Macro Page.Setup
 

Claus,

Not much help here, just some comments/questions...
The John Green code (as is) works for me in xl2002.
The xl4 code is very sensitive and all of the quote marks are required.
Are you using Option Explicit and does your code compile?
Arguments for margins are always in inches, regardless of your country setting.

Regards,
Jim Cone
San Francisco, USA


"Claus" wrote in message
...
Hi
I'm getting an error (See JPG) when i try to use the Sub by John Green
locatet on this site:
http://groups.google.com/group/micro...c725d0d5a6b3d0
I've copy/pasted it in my module without changing anything.
The error is in the last line: Application.ExecuteExcel4Macro pSetUp
I call the PS4 Sub from the site above from within the same Module using
this code:
For Each ws In Worksheets
If Left(ws.Name, 1) = "E" Then
ws.Select
PS4
End If
Next
I use XL2002, SP3
I've got it working with the ordinary pagesetup, but it is painfully slow.
Hoping for some guidance
Regards,
Claus

Error on ExecuteExcel4Macro Page.Setup
 

Hi Jim

Thanks for the clues, i've solved it.

The problem was that the margins were numbers, that - because i use the
Danish settings - were translated from 0.54 to 0,54 , thus making the
pSetUp-string wrong.

I simply turned the values into strings.

Regards,
Claus

"Jim Cone" skrev i en meddelelse
...
Claus,

Not much help here, just some comments/questions...
The John Green code (as is) works for me in xl2002.
The xl4 code is very sensitive and all of the quote marks are required.
Are you using Option Explicit and does your code compile?
Arguments for margins are always in inches, regardless of your country
setting.

Regards,
Jim Cone
San Francisco, USA


"Claus" wrote in message
...
Hi
I'm getting an error (See JPG) when i try to use the Sub by John Green
locatet on this site:
http://groups.google.com/group/micro...c725d0d5a6b3d0
I've copy/pasted it in my module without changing anything.
The error is in the last line: Application.ExecuteExcel4Macro pSetUp
I call the PS4 Sub from the site above from within the same Module using
this code:
For Each ws In Worksheets
If Left(ws.Name, 1) = "E" Then
ws.Select
PS4
End If
Next
I use XL2002, SP3
I've got it working with the ordinary pagesetup, but it is painfully slow.
Hoping for some guidance
Regards,
Claus

Error on ExecuteExcel4Macro Page.Setup
 

Hi again

I can't control the font.

Is is possible ?
How ?

Regards,
Claus

"Jim Cone" skrev i en meddelelse
...
Claus,

Not much help here, just some comments/questions...
The John Green code (as is) works for me in xl2002.
The xl4 code is very sensitive and all of the quote marks are required.
Are you using Option Explicit and does your code compile?
Arguments for margins are always in inches, regardless of your country
setting.

Regards,
Jim Cone
San Francisco, USA


"Claus" wrote in message
...
Hi
I'm getting an error (See JPG) when i try to use the Sub by John Green
locatet on this site:
http://groups.google.com/group/micro...c725d0d5a6b3d0
I've copy/pasted it in my module without changing anything.
The error is in the last line: Application.ExecuteExcel4Macro pSetUp
I call the PS4 Sub from the site above from within the same Module using
this code:
For Each ws In Worksheets
If Left(ws.Name, 1) = "E" Then
ws.Select
PS4
End If
Next
I use XL2002, SP3
I've got it working with the ordinary pagesetup, but it is painfully slow.
Hoping for some guidance
Regards,
Claus

Error on ExecuteExcel4Macro Page.Setup
 

Claus,
Understanding and using the xl4 code for page setup was a
major undertaking for me. I won't admit how long it took.
I don't think it can be learned without the xl4 function help file...
http://makeashorterlink.com/?B24052ACB

"&nn Prints the characters that follow in the specified font size."
I have used it this way...

Dim nn as Long
Dim Head as String
dim strNumber as String
nn = 12
strNumber = "&" & nn
Head = """&L" & strNumber & "Printed on &D" & "&C" & strNumber & _
Application.OrganizationName

also...
the formatting codes for xl4 and later versions of Excel appear to be the same...

Dim WordToUse as String
WordToUse = "Never Upgrade"
WordToUse = "&""ChevaraOutline,&B""&20" & WordToUse
That should change the font to ChevaraOutline, make it bold and size 20.

Regards,
Jim Cone


"Claus" wrote in message ...
Hi again
I can't control the font.
Is is possible ?
How ?
Regards,
Claus


Claus,
Not much help here, just some comments/questions...
The John Green code (as is) works for me in xl2002.
The xl4 code is very sensitive and all of the quote marks are required.
Are you using Option Explicit and does your code compile?
Arguments for margins are always in inches, regardless of your country
setting.
Regards,
Jim Cone
San Francisco, USA