ارسال پرینت به پرینتر مشخص

[sohrab o]

می خوام به یک پرینتر خاص (شاید غیر از پرینتر default) پرینت بفرستم؟می شه بگید چطوری؟با data report چطوری؟

[M.T.P]

می خوام به یک پرینتر خاص (شاید غیر از پرینتر default) پرینت بفرستم؟می شه بگید چطوری؟با data report چطوری؟

سلام
نحوه تغییر پرینتر پیش فرض:




Dim P As Printer
For Each P in Printers
If P.DeviceName = "Your Printer Name" Then
Set Printer = P
End if
Next

[AMP PAVEH]

دوست عزیز سلام از این روش می تونی


Private Sub Command1_Click()
CommonDialog1.ShowPrinter
End Sub

[sohrab o]

سلام
نحوه تغییر پرینتر پیش فرض:




Dim P As Printer
For Each P in Printers
If P.DiviceName = "Your Printer Name" Then
Set Printer = P
End if
Next


این که نمی شه؟

[sohrab o]

دوست عزیز سلام از این روش می تونی


Private Sub Command1_Click()
CommonDialog1.ShowPrinter
End Sub

دوست عزیز می خوام یک گزارشی رو با datareport به یک پرینتری ارسال کنم که set default نشده و کاربر هم چیزی نبینه.یعنی توسط کد پرینتر انتخاب بشه

[M.T.P]

ببین دوست من Printers تموم پرینترهای متصل به رایانه شما رو تو خودش داره و با حلقه زیر میتونی از تک تک اونها مطلع شی ، در کد زیر تمام پرینترها در یک ComboBox اضافه میشه:




Dim P As Printer
For Each P in Printers
CmbPrinters.AddItem P.DeviceName
Next



خب شما هر پرینتری رو که دوست دارین میتونین به شیء Printer در واقع Set کنین تا Printer مربوطه عملیات چاپ رو انجام بده ، در کدی که در پست دوم نوشتم فرض رو بر این گرفتیم که شما قصد دارید یک پرینتر خاص که اسمش مدنظرتون هست رو به شیء Printer نسبت بدید. ("Your Printer Name")
خب چنانچه اسم اون پرینتر متغیره باید از لیست اسم پرینتر رو انتخاب و به شیء Printer نسبت بدید. در این صورت پرینتر انتخاب شده عملیات چاپ رو انجام خواهد داد.
به این صورت:




Dim P As Printer
For Each P In Printers
If P.DeviceName = CmbPrinters.Text Then
Set Printer = P
Exit For
End If
Next



برای کنترل خطای برنامه در صورت عدم وجود Printer میتونید خط زیر رو به اولین خط از کدهای بالا اضافه کنید:




If Printers.Count = 0 Then Exit Sub

[sohrab o]

مرسی دوست گرامی
اما این کد که پرینتر رو set default نمی کنه.

[M.T.P]

مرسی دوست گرامی
اما این کد که پرینتر رو set default نمی کنه.

قرار نیست Set Defaulf کنه ، شی Printer بطور پیش فرض به پرینتر Default ویندوز پیغام میفرسته و چاپ رو انجام میده ، در کدهای بالا ما شیء Printer رو به دستگاه پرینتر دلخواه ربط میدیم نه اینکه پرینتر مرتبط با اون رو Default کنیم.:قلب:

[sohrab o]

این چرا با datareport جواب نمی ده؟

[M.T.P]

این چرا با datareport جواب نمی ده؟

شما چطور از این کد استفاده میکنید؟
کد چاپ رو اینجا قرار بدین.:لبخندساده:

[sohrab o]

DataReport.PrintReport False