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