چاپ در عرض يا طول كاغذ به انتخاب كاربر

سلام دوستان كسي مي دونه چطوري ميشه در گزارشي كه بوسيله data report درست كرده ايم در عرض يا طول كاغذ
به انتخاب كاربر چاپ كرد مثل انتخاب در پرينت گرفتن در برنامه word
ممنون مي شيم كمكم كنيد خيلي به اون احتياج دارم

کد:

---

Private Sub Command1_Click()
On Error Resume Next
CommonDialog1.CancelError = False
CommonDialog1.ShowPrinter
DoEvents
Printer.FontSize = Text1.Text
Printer.Print Text2.Text
DoEvents
Printer.EndDoc
End Sub

---

با سلام
فكر نكنم با كدي كه Romina2006 نوشتن بشه گزارش رو بصورت افقي چاپ كرد
يه فايل هست كه ميشه با اون افقي يا عمودي بودن كاغذ يا چاپگر رو تعيين كرد
سايتي برا آپلود كردن ندارم آدرس بدين براتون اون فايل رو بذارم اينجا.

kbdfaعزیز
لظفا برای من بفرستین
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

دنبال فايل pageset.dll بگرد
البته فقط براي چاپگرهاي ليزري كاربرد دارد.

سلام دوست عزيز
شرمنده كه ديراومدم
اينم لينك دانلود فايل Pageset.dll كه ميتوني كاغذ رو تو چاپگر به صورت افقي يا عمودي تبديل ميكنه
اگه نتونستي كدش رو بنويسي بگو يه نمونه بذارم
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]