Problem when I try and modify report layout with code... 1

perfessor · May 12, 2000

Hi, I have an Access 2000 application, and when I send out the runtime version, the margins and orientation for my reports gets reset.  I researched it on the net, and modified a function from someone elses modification of code in Microst Access 95 Developers Handbook.   It works great to change the orientation from Portrait to Landscape, but when I use it to change the margins, it does not work.  When I go to a report, it says printer not found, and resets the margins to one inch. Any insight into my problem? Thanks, Rik Code:Option Compare Database Const glrcDeviceNameLen = 32 Const glrcFormNameLen = 32   ' This is the number of bytes in the fixed portion of ' the DEVMODE structure. We've just broken the ' two sizes apart in case the fixed portion of ' the structure changes. Const glrcDevModeSize = 148 ' This is an arbitrary value. Based on experience, ' it ought to be large enough. Const glrcExtraSize = 1024 Const glrcDevModeMaxSize = glrcDevModeSize + glrcExtraSize   ' Structure for prtDevMode Type glr_tagDevMode     strDeviceName(1 To glrcDeviceNameLen) As Byte     intSpecVersion As Integer     intDriverVersion As Integer     intSize As Integer     intDriverExtra As Integer     lngFields As Long     intOrientation As Integer     intPaperSize As Integer     intPaperLength As Integer     intPaperWidth As Integer     intScale As Integer     intCopies As Integer     intDefaultSource As Integer     intPrintQuality As Integer     intColor As Integer     intDuplex As Integer     intYResolution As Integer     intTTOption As Integer     intCollate As Integer     strFormName(1 To glrcFormNameLen) As Byte     intLogPixels As Integer     lngBitsPerPixel As Long     lngPelsWidth As Long     lngPelsHeight As Long     lngDisplayFlags As Long     lngDisplayFrequency As Long     lngICMMethod As Long     lngICMIntent As Long     lngMediaType As Long     lngDitherType As Long     lngICCManufacturer As Long     lngICCModel As Long     bytDriverExtra(1 To glrcExtraSize) As Byte End Type   ' Structure for prtDevNames Type glr_tagDevNames     intDriverPos As Integer     intDevicePos As Integer     intOutputPos As Integer     intDefault As Integer End Type   ' Structure for prtMip Type glr_tagMarginInfo     lngLeft As Long     lngTop As Long     lngRight As Long     lngBottom As Long     lngDataOnly As Long     lngWidth As Long     lngHeight As Long     lngDefaultSize As Long     lngItemsAcross As Long     lngColumnSpacing As Long     lngRowSpacing As Long     lngItemLayout As Long     lngFastPrinting As Long     lngDataSheet As Long End Type   ' Temp structure for prtDevMode info. Type glr_tagDevModeStr strDevMode As String * glrcDevModeMaxSize End Type   Public Function SetReportFormat(strRptName As String) As Byte On Error GoTo Err_SetReportFormat       Dim DM As glr_tagDevMode     Dim PS As glr_tagMarginInfo     Dim DMStr As glr_tagDevModeStr     Dim PSStr As glr_tagDevModeStr     'Open report in design view     Application.Echo False       DoCmd.OpenReport strRptName, acViewDesign       'Get the DevMode settings     DMStr.strDevMode = Reports(strRptName).PrtDevMode       'Put the DevMode settings in User-Defined Type structure     LSet DM = DMStr       'Change the Paper Orientation to Landscape          DM.intOrientation = 2     'Assign changed setting back to User-Defined Type string     LSet DMStr = DM       'Assign changed setting string to the reports DevMode     Reports(strRptName).PrtDevMode = DMStr.strDevMode     DoCmd.Save acReport, strRptName     'Get the DevMode settings     PSStr.strDevMode = Reports(strRptName).PrtDevMode       'Put the DevMode settings in User-Defined Type structure     LSet PS = PSStr       'Change the Margins to minimum (I used msgbox ps.lngTop, etc., on a correctly formatted report to get these values)          PS.lngBottom = 1919251297     PS.lngTop = 1919251297     PS.lngLeft = 1277186120     PS.lngRight = 1277186120     'Assign changed setting back to User-Defined Type string     LSet PSStr = PS       'Assign changed setting string to the reports DevMode     Reports(strRptName).PrtDevMode = PSStr.strDevMode       'Save the changes and close the report     DoCmd.Save acReport, strRptName     DoCmd.Close acReport, strRptName     SetReportFormat = True       Application.Echo True   Exit_SetReportFormat:     Exit Function Err_SetReportFormat:     SetReportFormat = False     MsgBox Err.description     Resume Exit_SetReportFormat End Function

DougP · May 12, 2000

Is this a network Printer? I gusee you know in order to use a printer it has to be installed on each machine that wants to print to it. Is the Printer on both Computers Spelled Exactly the same. i.e. "HP DeskJet 812C" or something like that. If it's a network Printer go in Network Neighborhood and find the printer in there. Then Right click on it and click Install. This will make sure every Computer that prints to that printer has the exact same spelling of it in the Printers Folder. DougP <a href=mailto: dposton@universal1.com> dposton@universal1.com</a> <a href= > </a> Ask me how Bar-codes can help you be more productive.

perfessor · May 12, 2000

I wish it were that easy.  The application is on our salesguy's laptops, so there can be multiple printers.   I'm assuming my problem is that if you start setting printer options using the PrtDevMode method, it no longer assumes the default printer.  Hmmm.. I wonder if I can get the settings for the default printer before starting this, and then slap them back in when I run this. Rik

DougP · May 12, 2000

Why are you writing a mile of code? Access has powerful wizards to do 90% of what you are doing. I only write Code when I need to do something un-usual. Printing reports is as strait forward as it gets. Laptop, Network or Not. Win 2000, NT 4.0, '98 or '95 I've never written any code to print a report. We print reports simulataneouly all over the building from differnt platforms to 7 different printers. Inkjet, Dotmatrix, and Laser Perfessor step back a minute and take a hard look at what you are doing. Sounds like you are making a mountain out of a mole hill. I have used Access and Visual Basic since their inception and have not written code to do a report for years now. It's too much work for less results. DougP <a href=mailto: dposton@universal1.com> dposton@universal1.com</a> <a href= > </a> Ask me how Bar-codes can help you be more productive.

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Problem when I try and modify report layout with code... 1

perfessor

Programmer

DougP

MIS

perfessor

Programmer

DougP

MIS

Similar threads

Part and Inventory Search

Sponsor