RandyB

I think I figured out how to set a custom page size on a custom report. Try adding this VB code to the ActiveReports_ReportStart event:

Sub ActiveReport_ReportStart

rpt.Document.Printer.PrinterName = ""

rpt.Document.Printer.PaperKind = System.Drawing.Printing.PaperKind.Custom

Dim pWidth As Integer = 8.5 * 100 ' = 8.5" page width

Dim pLength As Integer = 1000 * 100 ' = 1000" page width

rpt.Document.Printer.PaperSize = New System.Drawing.Printing.PaperSize("Custom Paper Size",pWidth,pLength)

- Randy

Memphix

Could you expand on this Randy. The preview appears to be the same still... I've tried to modify it (guessing the 1000" page width is the page length?

RandyB

If you scroll down, you should notice that the first page virtually never ends (actually it does, just 1000" later). It just keeps going and going. The page width (pWidth) is 8.5" so that's actually the same as the default.

pWidth = Page Width in units of .01". So pWidth = 850 is 8.5" paper
pLength = Page Length in units of .01". So pLength = 1100 is 11" paper