چاپ عکس

[mehrad_1989]

سلام .
کد پرینت یک عکس توسط پرینتر رو می خواستم .

[biyarjomandi]

لطفا کمی بیشتر توضیح بدین . عکستون در یک picture box لود میشه یا اصلا دستور پرینت رو برای فایل در مسیر مشخص می خوایی یا عکس رو در گزارش استفاده میکنی ؟

[mehrad_1989]

لطفا کمی بیشتر توضیح بدین . عکستون در یک picture box لود میشه یا اصلا دستور پرینت رو برای فایل در مسیر مشخص می خوایی یا عکس رو در گزارش استفاده میکنی ؟

بله , عکسم در Picture Box لود میشه .

[biyarjomandi]

خوب بود بیشتر توضیح میدادی . مثلا عکس داخل باکس رو با سایز واقعی می خوایی یا همون سایزی که داره اون تو نشون میده . به هر حال من نمونه کدی ساده برای پرینت محتوای یک Picture box برات میزارم .از سابروتین استفاده کن مثل نمونه زیر :


Public Sub printImage()
Dim objPrint As New PrintDocument
AddHandler objPrint.PrintPage, AddressOf PrintImage_PrintPage
objPrint.Print()
End Sub
Private Sub PrintImage_PrintPage(ByVal sender As Object, ByVal e As PrintPageEventArgs)
e.Graphics.DrawImage(PictureBox1.Image, 0, 0, PictureBox1.Width, PictureBox1.Height)
End Sub

[biyarjomandi]

این کد هم شما رو تا Print preview پیش میبره که شما باید با قرار دادن یک پرینت دیالوگ از کنترل های ویژوال که البته امید وارم کار کردن با هاش رو بلد باشی در نهایت می تونی پرینت بگیری :

Public Sub printImage()
Using objPrint As New PrintDocument
AddHandler objPrint.PrintPage, AddressOf PrintImage_PrintPage
Using ppvPreview As New PrintPreviewDialog
ppvPreview.Document = objNew
ppvPreview.FindForm.WindowState = FormWindowState.Maximized
ppvPreview.ShowDialog()
End Using
End Using
End Sub
Private Sub PrintImage_PrintPage(ByVal sender As Object , ByVal e As PrintPageEventArgs)
e.Graphics.DrawImage(PictureBox1.Image, 0, 0, PictureBox1.Width, PictureBox1.Height)
End Sub