Hi -

WinXPProSP2/Office 2003: I'm programming in MS Access VBA and need to call a
WinAPI function. I'm new to coding API calls, so I don't yet understand the
conventions very well.

My specific goal is to determine the number of pixels per physical inch of
screen -both horizontally and vertically - for use elsewhere in my
application. From what I can tell, the 'getdevicecaps' function provides
pixels-per-inch (PPI), but I don't know how to implement it in VBA. So far,
I have the following code in a VBA module and would appreciate any advice on
how to code the function arguments (and anything else necessary to get this
to work properly):

Declare Function GetDeviceCaps Lib "gdi32" _
(ByVal hdc As Long, ByVal nIndex As Long) As Long

Public Function GetHPixelsPerInch() As Long
'Get horizontal pixels per inch
pixH = GetDeviceCaps(<I don't know what goes here>)
GetHPixelsPerInch = pixH
End Function

Public Function GetVPixelsPerInch() As Long
'Get vertical pixels per inch
pixV = GetDeviceCaps(<I don't know what goes here>)
GetVPixelsPerInch = pixV
End Function

Sub screenPixPerInch()
MsgBox "X PPI = " & GetHPixelsPerInch & Chr(13) & _
"Y PPI = " & GetVPixelsPerInch
End Sub
-----------
Thanks,
Jay

Please disregard this post; I have re-posted in Discussions in Windows API.

"Jay" wrote:

> Hi -
>
> WinXPProSP2/Office 2003: I'm programming in MS Access VBA and need to call a
> WinAPI function. I'm new to coding API calls, so I don't yet understand the
> conventions very well.
>
> My specific goal is to determine the number of pixels per physical inch of
> screen -both horizontally and vertically - for use elsewhere in my
> application. From what I can tell, the 'getdevicecaps' function provides
> pixels-per-inch (PPI), but I don't know how to implement it in VBA. So far,
> I have the following code in a VBA module and would appreciate any advice on
> how to code the function arguments (and anything else necessary to get this
> to work properly):
>
> Declare Function GetDeviceCaps Lib "gdi32" _
> (ByVal hdc As Long, ByVal nIndex As Long) As Long
>
> Public Function GetHPixelsPerInch() As Long
> 'Get horizontal pixels per inch
> pixH = GetDeviceCaps(<I don't know what goes here>)
> GetHPixelsPerInch = pixH
> End Function
>
> Public Function GetVPixelsPerInch() As Long
> 'Get vertical pixels per inch
> pixV = GetDeviceCaps(<I don't know what goes here>)
> GetVPixelsPerInch = pixV
> End Function
>
> Sub screenPixPerInch()
> MsgBox "X PPI = " & GetHPixelsPerInch & Chr(13) & _
> "Y PPI = " & GetVPixelsPerInch
> End Sub
> -----------
> Thanks,
> Jay
>

Start here, Jay.
http://www.microsoft.com/technet/scr...r/default.mspx

--

All the Best and Happy Turkey Day,
Kelly (MS-MVP/DTS&XP)

Taskbar Repair Tool Plus!
http://www.kellys-korner-xp.com/taskbarplus!.htm


"Jay" <(E-Mail Removed)> wrote in message
news:4F194023-3B1A-4367-BC45-(E-Mail Removed)...
> Hi -
>
> WinXPProSP2/Office 2003: I'm programming in MS Access VBA and need to call
> a
> WinAPI function. I'm new to coding API calls, so I don't yet understand
> the
> conventions very well.
>
> My specific goal is to determine the number of pixels per physical inch of
> screen -both horizontally and vertically - for use elsewhere in my
> application. From what I can tell, the 'getdevicecaps' function provides
> pixels-per-inch (PPI), but I don't know how to implement it in VBA. So
> far,
> I have the following code in a VBA module and would appreciate any advice
> on
> how to code the function arguments (and anything else necessary to get
> this
> to work properly):
>
> Declare Function GetDeviceCaps Lib "gdi32" _
> (ByVal hdc As Long, ByVal nIndex As Long) As Long
>
> Public Function GetHPixelsPerInch() As Long
> 'Get horizontal pixels per inch
> pixH = GetDeviceCaps(<I don't know what goes here>)
> GetHPixelsPerInch = pixH
> End Function
>
> Public Function GetVPixelsPerInch() As Long
> 'Get vertical pixels per inch
> pixV = GetDeviceCaps(<I don't know what goes here>)
> GetVPixelsPerInch = pixV
> End Function
>
> Sub screenPixPerInch()
> MsgBox "X PPI = " & GetHPixelsPerInch & Chr(13) & _
> "Y PPI = " & GetVPixelsPerInch
> End Sub
> -----------
> Thanks,
> Jay
>

Hi Kelly -

Sorry for the slow reply. Thank you for the scriptcenter resource.

Jay

"Kelly" wrote:

> Start here, Jay.
> http://www.microsoft.com/technet/scr...r/default.mspx
>
> --
>
> All the Best and Happy Turkey Day,
> Kelly (MS-MVP/DTS&XP)
>
> Taskbar Repair Tool Plus!
> http://www.kellys-korner-xp.com/taskbarplus!.htm
>
>
> "Jay" <(E-Mail Removed)> wrote in message
> news:4F194023-3B1A-4367-BC45-(E-Mail Removed)...
> > Hi -
> >
> > WinXPProSP2/Office 2003: I'm programming in MS Access VBA and need to call
> > a
> > WinAPI function. I'm new to coding API calls, so I don't yet understand
> > the
> > conventions very well.
> >
> > My specific goal is to determine the number of pixels per physical inch of
> > screen -both horizontally and vertically - for use elsewhere in my
> > application. From what I can tell, the 'getdevicecaps' function provides
> > pixels-per-inch (PPI), but I don't know how to implement it in VBA. So
> > far,
> > I have the following code in a VBA module and would appreciate any advice
> > on
> > how to code the function arguments (and anything else necessary to get
> > this
> > to work properly):
> >
> > Declare Function GetDeviceCaps Lib "gdi32" _
> > (ByVal hdc As Long, ByVal nIndex As Long) As Long
> >
> > Public Function GetHPixelsPerInch() As Long
> > 'Get horizontal pixels per inch
> > pixH = GetDeviceCaps(<I don't know what goes here>)
> > GetHPixelsPerInch = pixH
> > End Function
> >
> > Public Function GetVPixelsPerInch() As Long
> > 'Get vertical pixels per inch
> > pixV = GetDeviceCaps(<I don't know what goes here>)
> > GetVPixelsPerInch = pixV
> > End Function
> >
> > Sub screenPixPerInch()
> > MsgBox "X PPI = " & GetHPixelsPerInch & Chr(13) & _
> > "Y PPI = " & GetVPixelsPerInch
> > End Sub
> > -----------
> > Thanks,
> > Jay
> >
>
>