ich have to write a tool, which prints all Sheets in a IDW to PDF in correct
Papersize. This seams to by possible but how do I get the Papersize of the
sheet(s)? (A0, A1,...)
Try this from the help samples.
' Change the paper size to a custom size. The units are in centimeters.
oPrintMgr.PaperSize = kPaperSizeCustom
oPrintMgr.PaperHeight = 15
oPrintMgr.PaperWidth = 10
Thnx Kathy but I think this *sets* the Papersize
I wanna *get* the Size of the Sheets in an IDW
"KJohnson" schrieb im Newsbeitrag
news:D64247CD4C13F7AC2BEEB96D558DF9D9@in.WebX.maYIadrTaRb...
> Try this from the help samples.
> ' Change the paper size to a custom size. The units are in
centimeters.
> oPrintMgr.PaperSize = kPaperSizeCustom
> oPrintMgr.PaperHeight = 15
> oPrintMgr.PaperWidth = 10
>
> Kathy Johnson
>
>
Okay try this.
If IvApp.ActiveDocument.DocumentType = kDrawingDocumentObject Then
i=1
Do until i=IvApp.ActiveDocument.Sheets.count +1
Select Case IvApp.ActiveDocument.Sheets.item(i).Size
Case kADrawingSheetSize: Size = 1
Case kBDrawingSheetSize: Size = 2
Case kCDrawingSheetSize: Size = 3
End Select
i=i+1
Loop
End If
If you have more than one sheet you will have to iterate through
IvApp.ActiveDocument.Sheets.
