How to get printer page width, height & margins in pixels with APIs?

Can you provide me with the constants for HORZRES, VERTRES, PHYSICALOFFSETX, PHYSICALOFFSETY

Heres my code, below, I googled the constants.

hoz=1024
vert=768
OffX=0
OffY=0

This seems more like my screen resolution than my printer details, as shown in the image above

  Declare Function GetDeviceCaps Lib "Gdi32" ( hdc as Integer, index as Integer ) as Integer
  Declare Function GetDC Lib "User32" ( hwnd as Integer ) as Integer
  Declare Sub ReleaseDC Lib "User32" ( hwnd as Integer, dc as Integer )
  
  dim hdc as Integer = GetDC( 0 )
  
  Const HORZRES = 8
  Const VERTRES = 10
  Const PHYSICALOFFSETX = 112
  Const PHYSICALOFFSETY = 113
  
  dim intHorzPixels as integer
  intHorzPixels = GetDeviceCaps(hdc,HORZRES)
  
  dim intVertPixels as integer
  intVertPixels = GetDeviceCaps(hdc,VERTRES)
  
  dim intPhysOffsX as integer
  intPhysOffsX = GetDeviceCaps(hdc,PHYSICALOFFSETX)
 
  dim intPhysOffsY as integer
  intPhysOffsY = GetDeviceCaps(hdc,PHYSICALOFFSETY)
  
  ReleaseDC( 0, hdc )
  
  MsgBox "hoz=" + cstr(intHorzPixels) + EndOfLine + _
   "vert=" + cstr(intVertPixels) + EndOfLine + _
  "OffX=" + cstr(intPhysOffsX) + EndOfLine + _
   "OffY=" + cstr(intPhysOffsY)
  

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

Ooops, sorry about the conatants. And yes, that's your screen resolution, since that is what

  dim hdc as Integer = GetDC( 0 )

doeas obtain. You need to use 'CreateDC()' here providing the name of the printer you want to use, e.g.

   // Get a device context for the printer.
   HDC hdcPrint = CreateDC(NULL, TEXT("\\\\printserver\\print1"), NULL, NULL);

I don't know that the default printer is though.

That you can get using 'PrintDlg()', see http://msdn.microsoft.com/en-us/vbasic/ms646964(VS.85).aspx ("Print Dialog Box")

No, thats the whole point, I don't want to show the dialog.
Thats what my current issue is, having to show the dialog.

Ah, OK - that can also be done, yet is a bit more 'archaic', as described in http://msdn.microsoft.com/en-us/library/dd183521(VS.85).aspx ("Creating a Printer Device Context"): "To use the default printer, retrieve and parse the appropriate string from the Win.ini file. This string is retrieved by calling the GetProfileString function and specifying the appropriate section and entry names. In the case of the default printer, this data is stored in the [windows] section and identified by the entry named device."

BTW, while checking MSDN for that, I found that there seems to be a 'Printer' object in VB that you can use like 'Printer.DeviceName'

Ahh yes, I already have that function.

OK, one slight issue

Looking at the image I pasted above.

I get the values shown on row 3.
Which isn't with the 25mm margins I have set.

It seems to be getting values with 0 mm margins, which aren't set with the default printer

I'm not using VB, I'm using Real Basic

>>I'm not using VB, I'm using Real Basic

Sorry, but don't expect someone who only did C/C++ the last 17 years to be able to tell the difference from a few lines of code ;o)

BTW, a '0 margin' is unrealisitc with every printer, there will always be some milimeters left for that.

>BTW, a '0 margin' is unrealisitc with every printer, there will always be some milimeters left for that.

Absolutely.
These aren't the values I want...

hoz=2892
vert=4125
OffX=42
OffY=42

These are the values I want...

hoz=2268
vert=3501
OffX=354
OffY=354

Are there some different constants I can use?

Stupid question, but are you sure you are checking the right printer?

Yes.

These values are with 0mm margin, not my default settings, but the correct printer.
hoz=2892
vert=4125
OffX=42
OffY=42

These are the correct settings for the default printer with the default 25mm
hoz=2268
vert=3501
OffX=354
OffY=354

Second values are with the correct printer too

Heres my code...

  Declare Function GetDeviceCaps Lib "Gdi32" ( hdc as Integer, index as Integer ) as Integer
  Declare Function GetDC Lib "User32" ( hwnd as Integer ) as Integer
  Declare Sub ReleaseDC Lib "User32" ( hwnd as Integer, dc as Integer )
  
  Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" ( lpDriverName As CString, lpDeviceName As CString, lpOutput As CString, lpInitData As cstring ) As Integer
  
  dim defP as string = GetDefaultPrinter
  msgbox defP
  
  dim hdc as integer = CreateDC("",defP,"","")
   
  Const HORZRES = 8
  Const VERTRES = 10
  Const PHYSICALOFFSETX = 112
  Const PHYSICALOFFSETY = 113
  
  dim intHorzPixels as integer
  intHorzPixels = GetDeviceCaps(hdc,HORZRES)
  
  dim intVertPixels as integer
  intVertPixels = GetDeviceCaps(hdc,VERTRES)
  
  dim intPhysOffsX as integer
  intPhysOffsX = GetDeviceCaps(hdc,PHYSICALOFFSETX)
  
  dim intPhysOffsY as integer
  intPhysOffsY = GetDeviceCaps(hdc,PHYSICALOFFSETY)
  
  ReleaseDC( 0, hdc )
  
  MsgBox "hoz=" + cstr(intHorzPixels) + EndOfLine + _
   "vert=" + cstr(intVertPixels) + EndOfLine + _
  "OffX=" + cstr(intPhysOffsX) + EndOfLine + _
   "OffY=" + cstr(intPhysOffsY)
  

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

If these are the right values, how can I get the other ones with the 25mm margin ?

I just need to match what Real Basic is saying, maybe its wrong, but I just need the sizes its going to use to print with.

Help ?

Perhaps I can cheat.

If the default margins are always 25mm ?

at a resolution of 360 the pixels for 25mm are 354, the resolution can also be gained from that api too. I can factor that based on resolution.

What do you thing?