View Full Version : سوال: پرینت افقی
port72
چهارشنبه 11 فروردین 1395, 06:26 صبح
سلام
عید دوستان مبارک .
این تیکه برنامه از صفحه ظاهر شده پرینت به صورت ((افقی)) میگیره.و میخوام به صورت عمودی بر روی کاغذ چاپ بشه .
منظور اینکه اگر برگه A4 رو داخل پرینتر قرار بدیم روی قسمت بالای صفحه و عرضی کاغذ چاپ میکنه میخوام چاپ به صورت عمودی انجام بشه.
gilsoft
شنبه 14 فروردین 1395, 02:21 صبح
این تیکه برنامه از صفحه ظاهر شده پرینت به صورت ((افقی)) میگیره.و میخوام به صورت عمودی بر روی کاغذ چاپ بشه .
منظور اینکه اگر برگه 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
شنبه 14 فروردین 1395, 05:11 صبح
سلام
ممنون که وقت گذاشتین.
کد اولی که تغییری ایجاد نکرد اما دومی صفحه پشت متن رو تغییر میده و متاسفاته متن نمیچرخه.
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.