Very Advanced Report to PDF Question

[Warren]

Hi all,

I have some code that I have put together from several sources that
runs Access Reports as PDFs using Acrobat 7 pefectly.

I can change some options in the code:
- send fonts (yes or no)
- open file after file creation (yes or no)
- prompt for filename (yes or no)
- prompt to replace file (yes or no)

These options are set by changing single characters in my 'Adobe PDF'
binary value in my registry at
HKEY_CURRENT_USER\Printers\DevModePerUser. Below the binary value is
known as 'var1'.

Mid(var1, 941, 1) = Chr(0) 'Do not send fonts to "Adobe
PDF" set to false
Mid(var1, 945, 1) = Chr(0) 'View Adobe PDF results set to
false
Mid(var1, 949, 1) = Chr(0) 'Use or ask for PDF filename set
to false
Mid(var1, 957, 1) = Chr(0) 'Ask to Replace existing PDF
file set to fasle
lng1 = WriteRegistryBinary(HKEY_CURRENT_USER,
"Printers\DevModePerUser", "Adobe PDF", CStr(var1))

Question: Any idea what character(s) I need to change to add an A3
paper option?

I will also post this in a Registry Group.

Thanks,

Warren

 

[Warren]

Found them!

Mid(var1, 79, 1) = Chr(9) 'Use A4 paper
Mid(var1, 105, 1) = Chr(4) ' "
Mid(var1, 419, 1) = Chr(7) ' "

 

[Warren]

Ooops! I mean:

Mid(var1, 79, 1) = Chr(8) 'Use A3 paper
Mid(var1, 105, 1) = Chr(3) ' "
Mid(var1, 419, 1) = Chr(6) ' "