پرینت افقی

[port72]

سلام
عید دوستان مبارک .

این تیکه برنامه از صفحه ظاهر شده پرینت به صورت ((افقی)) میگیره.و میخوام به صورت عمودی بر روی کاغذ چاپ بشه .

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

[gilsoft]

این تیکه برنامه از صفحه ظاهر شده پرینت به صورت ((افقی)) میگیره.و میخوام به صورت عمودی بر روی کاغذ چاپ بشه .

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

سلام دوست عزیز

متاسفانه در حال حاضر Crystal رو نصب ندارم ! ( من فقط با Stimulsoft.Report کار می‌کنم )

ببین با کد زیر مشکل بر طرف میشه :
Private Sub printButton_Click(ByVal sender As Object, ByVal e As EventArgs)

Dim pd As New PrintDocument()
'
' این سطر رو اضافه کن
'
pd.DefaultPageSettings.Landscape = False

AddHandler pd.PrintPage, AddressOf Me.pd_PrintPage
pd.Print()

End Sub

یا
pd.DefaultPageSettings.Landscape = True

و یا میتونی این کد رو بعد از سطر AddHandler اضافه و امتحان کنی .....

موفق باشید .....

[port72]

سلام
ممنون که وقت گذاشتین.

کد اولی که تغییری ایجاد نکرد اما دومی صفحه پشت متن رو تغییر میده و متاسفاته متن نمیچرخه.