Assign Page size to Custom page by Name

[naveenmarapaka]

Hi.
When I use custom paper size, firstly I define it for the printer by
Providing a name with page length and width and then Windows assigns to it a code
number.

Like i Created Custom size with name "SMALL LABEL(4x2)" and system assigned to a code number 257

I have used this code in my VBA CODE like

Please Login or Register  to view this content.

it worked fine in my pc.

but i tried the same Macro in other pc by creating the same custom size with same name as SMALL LABEL(4x2)
my code did not worked since in that PC system assigned it to a different code 262

so i am unable to catch this code in every pc since code is not same in all pc's

Is there any way in VBA to refer to a
custom paper size by its name?

[LJMetzger]

Hi naveenmarapaka,

Great question. You have to get the value from the Windows Registry. I was only able to test in Windows 10. The registry values in other versions of Windows may be different.

Try the following code. Of course the Custom Paper Size names have to be defined on each computer. The function below will return the number assigned by Windows. Please note that 'Custom Paper Sizes' are assigned to specific printers and not to Windows in general.

Please Login or Register  to view this content.

It is a best practice to declare all variables. If you misspell a variable in your code, VBA will silently assume it is a Variant variable and go on executing with no clue to you that you have a bug. Go to the VBA development window, click Tools, Options, and check "Require Variable Declaration." This will insert the following line at the top of all new modules:

Please Login or Register  to view this content.

This option requires all variables to be declared and will give a compiler error for undeclared variables.

Lewis