hosein3000
چهارشنبه 24 اسفند 1390, 21:23 عصر
با سلام خدمت دوستان و مهندسان گرامی
من از کد زیر برای چاپ استفاده می کنم
Dim obj As Object
On Error GoTo Errprint
For Each obj In Me.Controls
If TypeOf obj Is Line Then 'Print Line's
Printer.Line (obj.X1, obj.Y1)-(obj.X2, obj.Y2)
End If
If TypeOf obj Is TextBox Then
Printer.CurrentX = obj.Left
Printer.CurrentY = obj.Top
Printer.Font = obj.Font
Printer.Print obj.Text
End If
If TypeOf obj Is Label Then
Printer.CurrentX = obj.Left
Printer.CurrentY = obj.Top
Printer.Font = obj.Font
Printer.Print obj.Caption
End If
Next
Printer.EndDoc
حالت چاپ هم لنداسکیپ میشه بدون هیچ مشکلی هم چاپ می کنه اما نمی دونم چرا بعضی وقتها خود بخود حالت چاپ پوریت میشه ؟
و مجبورم برم از قسمت تنظیمات پرینتر حالت چاپ رو دستی بذارم به لند اسکیپ
به نظر شما برای حل این مشکل چیکار کنم/؟؟
با تشکر
من از کد زیر برای چاپ استفاده می کنم
Dim obj As Object
On Error GoTo Errprint
For Each obj In Me.Controls
If TypeOf obj Is Line Then 'Print Line's
Printer.Line (obj.X1, obj.Y1)-(obj.X2, obj.Y2)
End If
If TypeOf obj Is TextBox Then
Printer.CurrentX = obj.Left
Printer.CurrentY = obj.Top
Printer.Font = obj.Font
Printer.Print obj.Text
End If
If TypeOf obj Is Label Then
Printer.CurrentX = obj.Left
Printer.CurrentY = obj.Top
Printer.Font = obj.Font
Printer.Print obj.Caption
End If
Next
Printer.EndDoc
حالت چاپ هم لنداسکیپ میشه بدون هیچ مشکلی هم چاپ می کنه اما نمی دونم چرا بعضی وقتها خود بخود حالت چاپ پوریت میشه ؟
و مجبورم برم از قسمت تنظیمات پرینتر حالت چاپ رو دستی بذارم به لند اسکیپ
به نظر شما برای حل این مشکل چیکار کنم/؟؟
با تشکر