How to create a report with different page sizes

[mdelsol]

Hi,

I would like to create a report with different page sizes, it's possible to do it with diadem?

When I change the layout parameters, changes afect to all sheets...

Is there a way to change page size individually for each sheet?

Thanks in advance.

Marc

[Frizzit]

My first though would be to pdf export between pages of different sizes and do a manual combination in adobe.  Though it is a quick and dirty solution it would get the job done.

[mdelsol]

As no one else proposed any useful solution, I assume that is not possible to create a report with different page sizes.

So I strongly recomend to DIAdem developers to implement that on the report generator. Otherwise it's capabilities are limited and restrict the script development.

[Brad_Turpin]

Hi Marc,

You can use the DocStart and DocEnd commands along with the PicPrint command to spool multiple print commands to the same output PDF file using the direct printer approach.  This should enable you to programmatically specify the page size differently for each sheet that you add to the print job.

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Print PDF Page by Page.VBS
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
OPTION EXPLICIT
Dim i, Path, OldPrintName
Path = AutoActPath & "2D Stacked"
Call DataDelAll
Call DataFileLoad(Path & ".TDM")
PDFFileName = Path & " Page by Page.pdf"
IF FileExist(PDFFileName) THEN Call FileDelete(PDFFileName)

OldPrintName = PrintName
PrintName = "winspool,DIAdem PDF Export,LPT1:" ' Set to PDF printer
PDFResolution = "72 DPI"  '  "2400 DPI" ,  "default"
PDFOptimization = TRUE
PDFFontsEmbedded = FALSE
PDFJPGCompressed = "high"

PrintOrient  = "landscape"   ' orient paper
Call PrintMaxScale("GRAPH")  ' auto-max, see alternative margin setting variables below
PrintLeftMarg = 0.181
PrintTopMarg  = 0.181
PrintWidth    = 10.67
'PrintHeigth  = 7 (read-only)

Call WndShow("REPORT")
Call DocStart ' Begin multi-page document/print job
FOR i = 1 TO 4
  Call PicLoad(Path & ".TDR")
  Call GraphSheetNGet(1)
  Call GraphSheetRename(GraphSheetName, "Page " & i)
  Call PicUpdate
  Call PicPrint("WinPrint")  ' Add a page to be printed
NEXT ' i
Call DocEnd   ' End multi-page document/print job
PrintName = OldPrintName
Call ExtProgram(PDFFileName)

Brad Turpin

DIAdem Product Support Engineer

National Instruments