افقی کردن صفحه

[مهدی رحیم زاده]

چطوری می تونم صفحه رو به حالت افقی کنم و گزارش گیری انجام بدم ...

[sm]

file--->Printer Setup--->Landscape

موفق باشید

[مهدی رحیم زاده]

یه مشکلی هست ...
من از file--->Printer Setup--->Landscape کاغذ رو افقی کردم ، اما رو کامپیوتر های دیگه باز صفحه عمودی میشه ...
فقط روی کامپیوتر من درسته ...
چکار کنم که همیشه افقی بمونه ...

[sm]

تنظیمات مربوط به چاپ شما ارتباط مشتقیم با چاپگر پیش فرض نصب شده روی سیستم مقصد دارد. یعنی باتوجه به نوع چاپگر نصب شده روی سیستم مقصد تنظیمات شما نیز اعمال می شود و درصورتیکه نوعی از کاغذ رو پشتیبانی نکنه اون خاصیت باوجود اینکه در زمان طراحی روی سیستم مبدا مشکلی نداشته غیرفعال میشه.
بهتره برای رفع مشکلات یه چاپگر مجازی روی سیستم مقصد نصب کنین که همه چی رو پشتیبانی کنه.
Acrobar Distiller یا Microsoft Office

موفق باشید

[alicomputer]

اگر تعداد فیلدهای که قرار است در صفحه گزارش dataReport نمایش دهید ، زیاد باشد مسلما فضای کافی برای آن پیدا نمی کنید، چنانچه بخواهید آنها را گروه بندی کنید .... تنها را آن هم بزرگتر کردن صفحه است اما اگر سایز صفحه را از حد معمول بیشتر کنیم با پیغام خطای report width is longer than paper width مواجه می شویم اما راه حل چیست ؟

در زیر سه راه حل آورده شده است :

1) به صورت دستی تنظیمات پرینتر را Landscape کنید ، برای این کار به Control panel سپس Printers and Faxes و بعد به پنجره مشخصات پرینتر خود بروید اکنون از تب Advanced دکمه printing Defualts را کلیک کنید از پنجره باز شده ، landscape را انتخاب نمایید .

2) استفاده از دستور DataReport1.Orientation = rptOrientLandscape اما باید توجه داشته باشید که برای اجرای این دستور باید سرویس پک چهار به بعد ویژوال بیسیک روی کامپیوتر شما نصب شده باشد برای دریافت سرویس پک شش ویژوال بیسیک به آدرس زیر مراجعه کنید :
وب سایت مایکروسافت (http://www.microsoft.com/downloads/details.aspx?FamilyId=9EF9BF70-DFE1-42A1-A4C8-39718C7E381D&displaylang=en)

3) روش بعدی این است که به وب سایت http://support.microsoft.com/default.aspx?scid=kb;EN-US;198901 (http://support.microsoft.com/default.aspx?scid=kb;EN-US;198901) مراجعه و فایل Pageset.dll را دانلود کنید( البته سورس این Dll نیز در دسترس است)
برای استفاده از این Dll از دستورات زیر استفاده کنید :




Dim obj As PageSet.PrinterControl

Private Sub Command1_Click()
On Error GoTo errorhandler:
Set obj = New PageSet.PrinterControl
obj.ChngOrientationLandscape
dateport1.Show
dateport1.PrintReport False, rptRangeFromTo, 1, 1

Exit Sub

errorhandler:
' MsgBox Err.Description
obj.ReSetOrientation

End Sub





موفق باشید