معادل یک API در ویندوز 2000

[maryamjvd]

با سلام به همه

من api ، GetDeviceCaps را در ویندوز xp برای ارتفاع و عرض محدوده پرینت استفاده کرده ام ولی وقتی برنامه را در ویندوز 2000 اجرا میکنم با پیغام خطای Out Of Range مواجه می شوم. آیا معادلی برای این api در ویندوز 2000 وجود دارد؟

dPageWidth = GetDeviceCaps(hdc, PHYSICALWIDTH) l
dPageHeight = GetDeviceCaps(hdc, PHYSICALHEIGHT

[__H2__]

سلام
من چیزی در مورد این API نمیدانم ولی پیغامی که شما میگویید ربطی به عدم وجود API ندارد! احتمالاً از اعدادی خارج از محدوده مجاز استفاده کرده اید.

[maryamjvd]

با سلام و تشکر از پاسختون
مقادیر قبلی برنامه به شکل زیر بوده است.

Private

Const PHYSICALWIDTH = 110 ' 110 ' Physical Width in device units

PrivateConst PHYSICALHEIGHT = 111 '111 ' Physical Height in device units

Dim hdc As IntPtr = e.Graphics.GetHdc()

که موقع اجرا روی دستورات زیر OUT Of Range می دهد.

dPageWidth = GetDeviceCaps(hdc, PHYSICALWIDTH)

'in pixel

dPageHeight = GetDeviceCaps(hdc, PHYSICALHEIGHT