پرینت گرفتن از فرم با تمام محتوای آن

[milad-sezar]

میحواستم از فرم پرینت بگیرم از کل فرم با همون شکلی که هست :متفکر: راهی هست؟:قلب:

[SlowCode]

بفرما:
Me.PrintForm

[program2vb]

میحواستم از فرم پرینت بگیرم از کل فرم با همون شکلی که هست :متفکر: راهی هست؟:قلب:

سلام دوست عزیز با کد زیر میتونی پرینت بگیری

Me.PrintForm

اگه بخوای پرینتر رو هم انتخاب کنی باید از دایالاگ باکس استفاده کنی

موفق و پیروز باشی یا علی

[ashkan1234]

منم همین مشکل رو دارم!
چجوری میشه اول پرینتر رو انتخاب کرد بعد با یک Button پرینت گرفت!?
اگه میشه دوستان که واردید این پست رو هم ببینید،مشکل منم حل کنید
http://barnamenevis.org/showthread.php?357870-%D8%AA%D8%BA%DB%8C%DB%8C%D8%B1-%DA%A9%D9%84%D9%85%D9%87-%D8%B9%D8%A8%D9%88%D8%B1-%DA%A9%D8%A7%D8%B1%D8%A8%D8%B1%DB%8C-%D8%AC%D8%B3%D8%AA%D8%AC%D9%88-%D9%86%D9%85%D8%A7%DB%8C%D8%B4-%D9%81%DB%8C%D9%84%D8%AF-%D9%85%D8%B4%D8%AE%D8%B5-%D8%B4%D8%AF%D9%87-%D8%AF%D8%B1-%D8%AF%DB%8C%D8%AA%D8%A7-%D8%B1%DB%8C%D9%BE%D9%88%D8%B1%D8%AA&p=1578098#post1578098

[SlowCode]

با این کد لیست چاپگرها توی لیست باکس اضافه میشه:
For Each X In Printers
List1.AddItem X.DeviceName
Next X

[star_star]

با این کد لیست چاپگرها توی لیست باکس اضافه میشه:
For Each X In Printers
List1.AddItem X.DeviceName
Next X

خب بعد چطوری پرینتر رو انتخاب کنیم ؟ یکم واضح تر لطفا توضیح بدید

[SlowCode]

ببخشید، بفرما:
Private Sub CmdPrint_Click()
For Each Prt In Printers
If Prt.DeviceName = List1.Text Then
Set Printer = Prt
Exit For
End If
Next Prt
PrintForm
End Sub

Private Sub Form_Load()
For Each x In Printers
List1.AddItem x.DeviceName
Next x
End Sub



همه اینها قبلا بحث شده ، این تاپیک (http://barnamenevis.org/showthread.php?106497-%D8%AA%D8%B9%D9%88%D9%8A%D8%B6-%DA%86%D8%A7%D9%BE%DA%AF%D8%B1-%D9%87%D9%86%DA%AF%D8%A7%D9%85-%DA%86%D8%A7%D9%BE&highlight=printer.devicename)رو هم بخون