Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 334
  • Last Modified:

PDF not working in Axccess 2003 after creating a new report

I generated an Access 2003 DB with the help of several experts, and I thank everybody for all there help. I took the advise of the experts and created a report, which I want to make into a PDF. I received some code to put behind my PDF button on my form "contract", and it was working great with my test report "contracts". So far so good. Now I renamed my test report and used the wizard to make a new one, and I kept the name the same as the test report that worked. Now the PDF button prints the report to my laser printer instead of CutePDF, like it used to. I can't see anything I did to cause this, but I am sure I did. I figured keeping the report name the same as the test one that worked would avoid problems, but apparently I was wrong. I uploaded the DB so you can hopefully spot what I did wrong. The other thing I noticed is when I hover my cursor over the old test report it shows the printer as CutePDF, asnd when I hover the cursor over the new report it shows my laser printer.
thanks experts...Bob
Limo-Rental.mdb
Limo-Rental-be.mdb
0
bobrossi56
Asked:
bobrossi56
  • 6
  • 5
1 Solution
 
milduraitCommented:
Prior to running the report you can set the application printer with vba.  Something like below may work for you.

Sub cmdPrint_Click()
 
       dim p as printer
       for each p in application.printers
             if p.name = "CutePDF" then
                  application.printer = p
                  exit for
             end if
       next

       'your code to open/print report

End Sub
0
 
bobrossi56Author Commented:
The code I got from one of the other experts specifically created a PDF of just the current form I had open. Will the above do that? I was hoping to continue to use the code I had and figure out why creating a new reoprt with the same name broke it.
0
 
milduraitCommented:
All the above will do is the set the printer for your application.
Suggest you try running this prior to running the existing code.
0
Easily Design & Build Your Next Website

Squarespace’s all-in-one platform gives you everything you need to express yourself creatively online, whether it is with a domain, website, or online store. Get started with your free trial today, and when ready, take 10% off your first purchase with offer code 'EXPERTS'.

 
bobrossi56Author Commented:
OK, I did and it erros on "if p.name "
0
 
milduraitCommented:
Try below & Let me know what comes up in the message box.
Get the default printer
    
    Set prtDefault = Application.Printer
    
    'assign CutePDF, make sure the name is correct in printer & faxes
    strDefault = "CutePDF Writer"
    'SetDefaultPrinter "CutePDF Writer"
    dim p as printer
    for each p in application.printers
        if p.DeviceName = strDefault then
           application.printer = p
           exit for
        end if
    next
    msgbox appliction.printer.DeviceName
   
   'Print the report
    stDocName = "contracts"  '                               Right below is the filter/criteria
    DoCmd.OpenReport stDocName, acNormal, , "PriKey = " & Forms![contract]![PriKey] & ""
         
   ' Reset the default printer
    Application.Printer = prtDefault

Open in new window

0
 
milduraitCommented:
Sorry let me  try again.
    Set prtDefault = Application.Printer
    
    'assign CutePDF, make sure the name is correct in printer & faxes
    strDefault = "CutePDF Writer"
    'SetDefaultPrinter "CutePDF Writer"
    dim p as printer
    for each p in application.printers
        if p.DeviceName = strDefault then
           application.printer = p
           exit for
        end if
    next
    msgbox application.printer.DeviceName
   
   'Print the report
    stDocName = "contracts"  '                               Right below is the filter/criteria
    DoCmd.OpenReport stDocName, acNormal, , "PriKey = " & Forms![contract]![PriKey] & ""
         
   ' Reset the default printer
    Application.Printer = prtDefault
 

Open in new window

0
 
bobrossi56Author Commented:
OK, when I click the PDF button I get  a message box that says "CutePDF Writer", and when I click OK, it prints the report to my laser printer.
0
 
milduraitCommented:
OK.
The issue is not with the code, it is with page setup.

a) Open up your report in design view.
b) From the file menu choose page setup.
c) On the page tab choose default as the printer for contacts.
0
 
bobrossi56Author Commented:
Your a genius....that was it. I knew it had to be something about the new report vs. the test report because the code I had worked before. I didn't know, being a novice as I am, that this option was available in a report to pick a specific printer. Thanks so much for sticking with me. Much appreciated.
-Bob
0
 
bobrossi56Author Commented:
Great help and problem solved...thx agaiin
0
 
milduraitCommented:
No problems..
Not genius yet (guru)...
You have to answer lots of questions here before you become a genius LOL
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Easily Design & Build Your Next Website

Squarespace’s all-in-one platform gives you everything you need to express yourself creatively online, whether it is with a domain, website, or online store. Get started with your free trial today, and when ready, take 10% off your first purchase with offer code 'EXPERTS'.

  • 6
  • 5
Tackle projects and never again get stuck behind a technical roadblock.
Join Now