|
DIAdem에서 자동으로 다중페이지 테이블을 출력할 수 있는 기능은 제공되고 있지 않으나, DIAdem VBScript를 통해서는 출력 가능합니다. 다중 페이지 테이블이 구성되어있는 특정 Sheet에 하기와 같이 변수를 선언하게 되면, 테이블이 출력되는 모든 페이지를 출력 하실 수 있습니다.
' Set these variables to the sheet that contains your multi-page table.
PrintRangeType = "PageEnums"
PrintFromPage = 1
PrintToPage = 1
Call PicMaxPageCalc
For i=1 to MaxYPage ' Print all pages of the table
CurrYPage = i
PicPrint("WinPrint") ' Print to the Windows printer
Next
추가적으로 하기의 VB Script 를 사용하게 되면, 리포트에 구성된 Sheet 개수를 확인하여 모든 Sheet 출력이 가능합니다.
Call GraphSheetInfos
For j = 1 to GraphSheetCount
' 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 i=1 to MaxYPage ' Print all pages of the table
CurrYPage = i
PicPrint("WinPrint") ' Print this page to the Windows printer
Next
Next
|