ايران ويج

اینجا http://support.microsoft.com/kb/80185در این مورد توضیح داده شده و من طبق اون این برنامه رو ایجاد کردم اما خطای Overflow رو میده
به نظر شما علت چیه؟

کسی متوجه نشد علت چیه؟

سلام
واسه منم ارور داد من اینکارو کردم درست شد نگاه کدها کن

کد: 
Private Sub Command1_Click()

On Error Resume Next

Const PORTRAIT = 1

      Const LANDSCAPE = 2

      Const GETSETPAPERORIENT = 30

      Dim Orient As OrientStructure

      '* Start the printer

      Printer.Print ""

      '* Specify the orientation

      Orient.Orientation = LANDSCAPE

      '* Send escape sequence to change orientation

      x = Escape(Printer.hDc, GETSETPAPERORIENT, Len(Orient), Orient, Null)

      '* The EndDoc will now re-initialize the printer

      Printer.EndDoc

      Printer.Print "Should print in landscape mode"

      Printer.EndDoc

End Sub

بعد جمله
Should print in landscape mode
هم چاپ کرد.
چاپ مجازی البته پرینتر نبود....

یک کتابخانه میکروسافت معرفی کرده که با اون مشکل حل شد اینجا گذاشتم تا اگه کسی هم با مشکل من مواجه شد بتونه حلش کنه

red11011

red11011

Mr.pRoGraMmer

red11011