ﺗﻌﯿﯿﻦ ﺟﮫﺖ ﮐﺎﻏﺬ ﻗﺒﻞ از ﭘﺮﯾﻨﺖ ﺗﻮﺳﻂ ﺑﺮﻧﺎﻣﻪ

[red11011]

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

[red11011]

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

[Mr.pRoGraMmer]

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

کد:

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]

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