Best way to handle A4 and letter paper size

[CD Tom]

I have some users that use standard letter paper 8 1/2 X 11 but I do have some that use the A4 paper size. Is there a way to recognize what paper the user is using and switch. What's the best way to handle reports. When user switches to A4 paper some of the reports will show up on a second page because A4 paper is narrower.
Does anybody have a good answer to this problem?
Thanks for all your help.

[ADezii]

This should help you out, CD Tom:

Dim strReport As String
Dim rpt As Report
 
strReport = "Employees"
'Open the Report in Preview/Hidden Mode
DoCmd.OpenReport strReport, View:=acViewPreview, WindowMode:=acHidden
 
'Retrieve the Paper Size set for the Report
With Reports(strReport)
  With .Printer
    ''Check Values for the acPrintPaperSize Enumerated Constants in the Object Viewer
    Select Case .PaperSize
      Case acPRPSLetter
        'Set the Paper Size for the Report strReport to 11 x 17 if it is Letter
        Reports(strReport).Printer.PaperSize = acPRPS11x17
      Case acPRPSLegal
        MsgBox "Legal"
      Case acPRPS11x17
        MsgBox "11 x 17"
      'Case ...
      'Case ...
      'Case ...
      'Case ...
      'Case ...
      'Case ...
      'Case ...
      'Case ...
      'Case ...
      'Case ...
      'Case ...
      'Case ...
      Case Else
        MsgBox "Paper Size not Supported"
    End Select
  End With
 
  'Close the Report strReport, and Save any changes
  DoCmd.Close acReport, strReport, acSaveYes
End With

[CD Tom]

That is one of the things I was looking for. The other is in the report design the report takes up 8 inches of the paper with .25 left margin and .25 right margin. When I switch to A4 paper which is narrower the report prints on two pages instead of one. Should I make two reports one for the A4 and only use 7 1/2 inches of the paper for the report body? Then if the user is using the A4 paper print that report instead.
Thanks again for your help.

[Rabbit]

That's really up to you isn't it? What I would do is just create the 7.5 inch version of the report. And if I wanted to center the report, I would set the margin to .5 or .25 depending on the size of the paper they're using.

[CD Tom]

Is there a way to look at the users printer and see what paper size the default printer is set at? If I see that the printer is set at A4 then I could make the appropriate adjustment to the reports.
Thanks again for all your help.

[ADezii]

If I see that the printer is set at A4...

Dim strReport As String
Dim rpt As Report
 
strReport = "Employees"
 
'Open the Report in Preview/Hidden Mode
DoCmd.OpenReport strReport, View:=acViewPreview, WindowMode:=acHidden
 
'Retrieve the Paper Size set for the Report
With Reports(strReport)
  With .Printer
    If .PaperSize = acPRPSA4 Then
      'Paper Size is A4, now what...
    End If
  End With
End With
 
'Close the Report strReport, and Save any changes
DoCmd.Close acReport, strReport, acSaveYes

[CD Tom]

I did a search and found your article "Printer and Printing Tips" using that I have check the default printer for the paper size and if paper size is A4 I want to change the paper size in the report from letter to A4 the following code is what I'm using but when I look at the report after changes are supposed be made but nothing has changed.

     ' Check default printer for paper size
    Const RptName As String = "Posse Report"
    Const contwipsperInch As Long = 1440
    With Application.Printer
        If .PaperSize = acPRPSA4 Then ' if paper size A4 then change report paper size to A4 and change margins
            DoCmd.OpenReport RptName, View:=acViewPreview, WindowMode:=acHidden
            With Reports(RptName).Printer
                .PaperSize = acPRPSA4
                .LeftMargin = 0.15 * contwipsperInch
                .RightMargin = 0.15 * contwipsperInch
            End With
            DoCmd.Close acReport, RptName, acSaveYes
        End If
    End With
    DoCmd.OpenReport RptName, acPreview
 

I've compiled the code with no errors, when I pause the code and step through it everything seems to be working.
Can you see what's wrong with my code.
Thanks

[ADezii]

@CD Tom: Try removing Code Line# 12

DoCmd.Close acReport, RptName, acSaveYes 

as in:

Const RptName As String = "Posse Report"
Const contwipsperInch As Long = 1440
 
With Application.Printer
  If .PaperSize = acPRPSA4 Then
    DoCmd.OpenReport RptName, View:=acViewPreview, WindowMode:=acHidden
      With Reports(RptName).Printer
        .PaperSize = acPRPSA4
        .LeftMargin = 0.15 * contwipsperInch
        .RightMargin = 0.15 * contwipsperInch
      End With
  End If
End With
 
DoCmd.OpenReport RptName, acPreview

[CD Tom]

When I remove Line 12 and run the compile I get Compiler error end with without With

[ADezii]

@CD Tom: Remove Line# 12 and nothing else, exactly as I have posted in Post# 8.

[CD Tom]

That worked fine I read you post wrong sorry.