August 30, 2008 03:27am pdt

Member Login

Hall of Fame

Yearly

1capricorn1 832,555
2LSMCons... 420,738
3boag2000 397,917
4DatabaseMX 312,932
5peter57r 282,365
6harfang 259,782
7jimhorn 170,361
8matthews... 134,445
9TextReport 130,246
10MikeToole 114,323
11omgang 96,947
12frankytee 91,914
13koutny 89,755
14angelIII 76,770
15Rick_Ric... 71,927
16eghtebas 63,987
17GRayL 62,530
18ee_rlee 62,522
19rorya 61,932
20irudyk 60,110
21hnasr 56,555
22LennyGray 56,292
23cactus_d... 55,098
24jefftwilley 54,222
25wiswalld 51,523

	[x] Attachment Details

Reports - problem with changing printer via VBA

Zones: Access Coding/Macros, Access Reports

Tags: access, change, default, has, printer

I have a form with two important buttons: one is for previewing a report formatted for default printer, and the second one for previewing the same report formatted for PDF writer. When a user clicks on the Print button and the first preview is active, the report will be sent to the default printer. If the second preview is active, the report will be sent to the PDF writer.

Problem:
- both buttons work well... but nor always
- sometimes I get message "Method 'DefaultSize' of object '.Printer' failed
(while starting the Preview formatted for the default printer)
- sometimes I get message "Microsoft Access has encountered a problem and needs to close";
error code is 0xc0000005
(this appear mostly while starting a preview formatted for PDF printer)

The biggest problem is that I cannot imagine _when_ it happens - sometimes I see the report for default printer, then for the PDF writer, etc. and _once_ I get the message.

I tried with different printers as default printer and with different printers ad PDF_printer (I used even names of some physical printers instead of my normal PDF writer - it works like before).

Here is the code snippet of the two onClick functions. What am I doing wrong?

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

           
           
             Private Sub letter_Click()
    Dim rpt As Report
    Dim prn As Printer
    
    Set prn = Application.Printer
    With prn
        .DefaultSize = False
        .ItemSizeWidth = 10800
        .BottomMargin = 350
        .TopMargin = 350
        .LeftMargin = 350
        .RightMargin = 350
    End With
    
    DoCmd.OpenReport "a-best", A_PREVIEW, , "[cu_nr] = " & str$(Forms![a]![a-sub].Form![cu_nr])
    Set rpt = Reports![a-best]
    
    With rpt
        .Printer = prn
        ![letterhead].Visible = False
    End With
End Sub
 
 
Private Sub PDFletter_Click()
    Dim rpt As Report
    Dim prn As Printer
    Dim result As String
    
    Set prn = Application.Printers(PDF_printer)
    With prn
        .DefaultSize = True
        .BottomMargin = 0
        .TopMargin = 0
        .LeftMargin = 0
        .RightMargin = 0
    End With
    
    DoCmd.OpenReport "a-best", A_PREVIEW, , "[cu_nr] = " & str$(Forms![a]![a-sub].Form![cu_nr])
    Set rpt = Reports![a-best]
    With rpt
        result = DisplayImage(!letterhead, "Letterhead_LA.jpg") ' will be changed 
        .Printer = prn
    End With
    
End Sub

           
         

Start your free trial to view this solution

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

8.6

Question Stats

Zone: Microsoft

Question Asked By: brundo

Solution Provided By: boag2000

Participating Experts: 1

Solution Grade: A

Translate:

Loading Advertisement...

Open Discussion

Comment by boag2000

Great,

Glad I could help!

JeffCoachman

20080723-EE-VQP-34 / EE_QW_2_20070628