pdf table 2D multipage

[aristoy]

Good morning,

Based on an example of the forum, I've created the attached vi, to save to a pdf file, a series of pages created in Diadem, of which there is a page that contains a table 2D, which may contain a different number of data, and consequently may be several pages.

I do not know what I'm doing wrong, so I only print the first and last pages, when in the example, in theory I have it ready to print twice the entire table.

Any suggestions?

[HeikeM]

Hello aristoy,

I don't know why it doesn't work but if you use the command PicPrint instead of PicPdfExport it will print the entire table twice.

Dim j
Dim intCount

Call DocStart() 
Call GraphSheetInfos

For j = 1 to GraphSheetCount

  ' Set Printer Port for DIAdem PDF Export
  PrinterName = "winspool,DIAdem PDF Export,NUL:"
  PDFFilename = "D:\diadem_report_gen_edited\xxx.PDF"
  PrintRangeType = "PageEnums"
  
  ' Set these variables to the current sheet we're going to print.
  PrintRangeType = "PageEnums" 
  PrintFromPage = j
  PrintToPage = j

  ' Show the current sheet we're going to print,
  ' so that PicMaxPageCalc will know which one it is calculating for.
  Call GraphSheetNGet(j) 
  Call GraphSheetShow(GraphSheetName)
  
  ' Calculate how many pages this sheet will take.
  Call PicMaxPageCalc 

  For intCount = 1 to MaxYPage  ' Print all pages of the table 
    CurrYPage = intCount 
    PicPrint("WinPrint")
  Next
Next

Call DocEnd()

Hope this helps!

Heike