Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
Discussion GroupsFormsForms ProgrammingQueriesModules / DAO / VBAReports / PrintingMacrosDatabase DesignSecurityConversionImporting / LinkingSQL Server / ADPMultiuser / NetworkingReplicationSetup / ConfigurationDeveloper ToolkitsActiveX ControlsNew UsersGeneral 1General 2
Access DirectoryToolsTutorialsUser Groups
Related Topics
SQL ServerOther DB ProductsMS OfficeMore Topics ...

MS Access Forum / Forms Programming / November 2006

Tip: Looking for answers? Try searching our database.

Very Advanced Report to PDF Question

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Warren - 30 Oct 2006 22:52 GMT
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 - 08 Nov 2006 23:21 GMT
Found them!

           Mid(var1, 79, 1) = Chr(9) 'Use A4 paper
           Mid(var1, 105, 1) = Chr(4) '    "
           Mid(var1, 419, 1) = Chr(7) '    "
Warren - 08 Nov 2006 23:22 GMT
Ooops! I mean:

           Mid(var1, 79, 1) = Chr(8) 'Use A3 paper
           Mid(var1, 105, 1) = Chr(3) '    "
           Mid(var1, 419, 1) = Chr(6) '    "
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.