HELP - setting page margins doesn`t work correctly

Question

Hi there,
maybe someone encountered the same Problems I am facing.
I am setting the page margins for the Left-Side to have enough space to punch the printout.
Somehow CR seems to ignore the values I set when printing a Report.
Most of the times I have too much space on the right side and not on the left side.
The margin on the Left side seems to be the min-margin of the printer.
What`s wrong with the Reports?
CR 2008 with SP1 is used.
The Reports are not designed against a specific Printer.
The virtual Printerdriver of CR is used.
Greetz
Ricardo

Answer 1

>
Don Williams wrote:
> Hi Ricardo,
>
> There is a new API that allows you to dissociate the printer... that is by default not checked on in the Report file.
>
> Try setting it to true in your app and test again:
>
>             // new API added to allow changing printing options
>             newOpts.DissociatePageSizeAndPrinterPaperSize = true;
>
> Search the Object Browser for how to use it.
>
> Thank you
> Don
Don (or anyone else),
I try to get to the DissociatePageSizeAndPrinterPaperSize but I can't figure out how to access it.
I use CR 2008 with Visual Studio 2005, Visual Basic. My goal is to get an unrestricted right hand side
of my report, so I can have as many columns as I want. (I have a different thread about this).
First of all: If I search DissociatePageSizeAndPrinterPaperSize in the Object Browser, it can't find it.
(I have performed an upgrade for CR XI R2 to CR 2008 and it seemingly went well).
Here is what I do in code (a modified web download for testing):
Option Strict On
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Partial Class _Default
    Inherits System.Web.UI.Page
    Private rpt As ReportDocument
    Private exportPath As String
    Private myDiskFileDestinationOptions As DiskFileDestinationOptions
    Private myExportOptions As ExportOptions
    Private selectedNoFormat As Boolean = False
    Private Sub ConfigureCrystalReports()
        rpt = New ReportDocument()
        Dim reportPath As String = Server.MapPath("Hierarchical Grouping.rpt")
        rpt.Load(reportPath)
        Dim myPrintOptions As CrystalDecisions.ReportAppServer.ReportDefModel.PrintOptions = _
                      CType(rpt.ReportClientDocument.PrintOutputController.GetPrintOptions(), _
                      CrystalDecisions.ReportAppServer.ReportDefModel.PrintOptions)
        Dim newPrintOptions As CrystalDecisions.ReportAppServer.ReportDefModel.PrintOptions = myPrintOptions.Clone(True)
        Dim newMargins As CrystalDecisions.ReportAppServer.ReportDefModel.PageMargins = newPrintOptions.PageMargins
        newPrintOptions.PageMargins = newMargins
        newMargins.Right = 1000
        'newPrintOptions.PaperSize = CrystalDecisions.ReportAppServer.ReportDefModel.CrPaperSizeEnum.crPaperSizePaperA3
        ' newPrintOptions.PaperOrientation = CrystalDecisions.ReportAppServer.ReportDefModel.CrPaperOrientationEnum.crPaperOrientationLandscape
        rpt.ReportClientDocument.PrintOutputController.ModifyPrintOptions(newPrintOptions)
        myCrystalReportViewer.ReportSource = rpt
    End Sub
This prints a wider page on-screen than without the code, so it is an improvement. Still, I would like to go
further, and the DissociatePageSizeAndPrinterPaperSize seems to be promising.
Can you tell me how to set it in the context above?
A little observation: When my newMargins.Right gets the value 145, the output is a narrow page.
When it is set to 146, it jumps to a wider page.
Setting the PageContentWidth doesn't help any more than the Right option.
- Kjell Arne