2

アクティブなプリンターの物理的なマージンを取得しようとしています。しかし、GetDeviceCaps 関数の 2 番目のパラメーターの値を何に指定すればよいかわかりません。実際のプリンターの値を取得するために設定できるHORZSIZEVERTSIZEの値を教えてください。

2 番目のパラメーターの値として 0 を使用している場合、getX および getY の値を 1024 として取得しています。誰か助けてください。

注: DefaultPrinterInfo は、ドライバー名とプリンター名を取得するためのユーザー定義関数です。

Sub GetDevCaps()
    Dim str() As String
    Dim hdc As Long, delHdc As Long
    Dim getX As Long, getY As Long
    str = DefaultPrinterInfo
    hdc = CreateDC(str(1), str(0), 0, 0)
    getX = GetDeviceCaps(hdc, ?)
    getY = GetDeviceCaps(hdc, ?)
    delHdc = DeleteDC(hdc)<br>
End Sub
4

1 に答える 1