How to read in Sheet Size

[Anonymous]

How do I read in the Sheet Size in an idw (A, B, C, D, ...)? I looked
through the help without too much luck and was hoping someone knew how to do
this. I'm looking to make a macro which will print to the correct printer
based on the sheet size.

--


Thanks,

Mike

__________________
Michael V. Ficarra
Engineering Manager
Cross Bros. Co. Inc.
(585) 427-7850 x207
(585) 427-2908 (Fax)
(585) 233-6653 (Cell)

[Anonymous]

You need to look at something like this.

Kathy Johnson


Dim oDrawDoc As DrawingDocument, oSheet As Sheet

If ThisApplication.ActiveDocument.DocumentType =
kDrawingDocumentObject Then
Set oDrawDoc = ThisApplication.ActiveDocument
Set oSheet = oDrawDoc.ActiveSheet
Select Case oSheet.Size
Case kADrawingSheetSize: arr(j - 1, 10) = "Letter"
Case kBDrawingSheetSize: arr(j - 1, 10) = "11X17"
Case kCDrawingSheetSize: arr(j - 1, 10) = "C Sheet"
Case kA2DrawingSheetSize: arr(j - 1, 10) = "A2"
Case kA3DrawingSheetSize: arr(j - 1, 10) = "A3"
Case kA4DrawingSheetSize: arr(j - 1, 10) = "A4"
'Case kA5DrawingSheetSize: arr(j - 1, 10) = "A5"
Case kCustomDrawingSheetSize: arr(j - 1, 10) = "Custom"
Case kDDrawingSheetSize: arr(j - 1, 10) = "D Sheet"
Case kEDrawingSheetSize: arr(j - 1, 10) = "E Sheet"
End Select
End If