from previous post here:-thanks to mark sanchez
quote:
To find out what the actual Canonical media name is for your custom paper
size, try running the following "GetMedia" function. This will print out all
Canonical and Locale media names to the Immediate window. Make sure to enter
your specific plot config (PC3) file name where noted below:
Public Sub GetMedia()
Dim strMedia() As String, strPaperSize As String, strLocaleSize As String
Dim intI As Integer
Dim objPlotConfig As AcadPlotConfiguration
strPaperSize = vbNullString
strLocaleSize = vbNullString
Set objPlotConfig = ThisDrawing.PlotConfigurations.Add("NEW", True)
If Not objPlotConfig Is Nothing Then
'Enter your PC3 file name HERE:
objPlotConfig.ConfigName = "YourPlotConfigNameHere.PC3"
objPlotConfig.RefreshPlotDeviceInfo
strMedia() = objPlotConfig.GetCanonicalMediaNames
End If
For intI = 0 To UBound(strMedia)
strPaperSize = strPaperSize & strMedia(intI) & " "
strLocaleSize = strLocaleSize &
objPlotConfig.GetLocaleMediaName(strMedia(intI)) & "**"
Next
Debug.Print strPaperSize
Debug.Print "******"
Debug.Print strLocaleSize
ThisDrawing.PlotConfigurations("NEW").Delete
Set objPlotConfig = Nothing
End Sub
Hope this helps,
Mark Sanchez
"marceloc" wrote in message
news:f198c77.-1@WebX.maYIadrTaRb...
> Hi, I'm having a problem when selecting the paper size in VBA. Every time
I select a paper size "CanonicalMediaName" the correct paper size is
selected, but the printable area is not correct (is larger than it should
be). For example, If I select the paper size "A1" from the plot Dialogue box
it shows the correct printable area 830 x 560, but when selected from the
code It will show it as 841x594. This problem happens to different paper
sizes & different printers as well. Is this a Bug......
> Thanks
>
> Marcelo
>
