我正在尝试获取活动打印机的物理边距。但我不知道我应该为GetDeviceCaps函数提供第二个参数的值。有人能告诉我 HORZSIZE 和 VERTSIZE 的值是多少,我可以设置得到实际的打印机值。
如果我使用0作为第二个参数的值,我将getX和getY值设为1024.有人可以帮助我。
注意: DefaultPrinterInfo是用户定义的函数,用于获取drivername和printername
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
答案 0 :(得分:2)