vba如何获得当前打印设备的所有幅面列表？（已解决）

iceberg2509

比如说，当前打印机是adobe pdf，在“图纸尺寸”一栏内，可能有A3、A4等幅面可供选择，在vba中如何获取这个列表呢？

iceberg2509

哈哈，我自己已经解决。

Sub GetLocaleMediaName()
    Dim Layout As ACADLayout
    Dim mediaNames As Variant
    Dim X As Integer
   
    Set Layout = ThisDrawing.ModelSpace.Layout
    Layout.RefreshPlotDeviceInfo
    mediaNames = Layout.GetCanonicalMediaNames()
    For X = LBound(mediaNames) To UBound(mediaNames)
        Debug.Print Layout.GetLocaleMediaName(mediaNames(X))
    Next
End Sub

齐天大圣3386

我现在也遇到这个问题了，但是，我想问，为什么打印机变了，而图纸幅面却不变