Printable View
سلام بر دوستان عزيز.
من مي خواستم كه يكي از دوستان لطف كنند و سورسي را درباره پرينت كردن يك عكس با پرينتر و به كمك ديالوگ پرينت وي‍ژوال بيسيك (CommonDialog) را آپلود كنند.
من مي خوام وقتي روي دكمه ي Print كه در صفحه زير مشاهده مي كنيد كليك شد، عكس مورد نظر مستقيما به پرينتر ارسال شده و ما شاهد پرينت شدن آن توسط پرينتر باشيم
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
خواهش مي كنم براي امشب لازمش دارم.خيلي متشكرم :46:
ببین این چجوریه خودت کاملش کنکد:Private Sub Command1_Click()
Printer.KillDoc
Form1.CommonDialog1.ShowPrinter
Form1.CommonDialog1.ShowOpen
strname = Form1.CommonDialog1.FileName
Picture1.Picture = LoadPicture(strname)
Printer.PaintPicture Picture1.Picture, 1, 1
Printer.EndDoc
End Sub
ببخشين دوست من متاسفانه يه كم دير فهميدم كه شما به من كمك كردين...نقل قول:
ممنون ميرم امتحان مي كنم...
اگه مشكلي بود مزاحمتون مي شم:46:
این قطعه کد باعث میشه تا قبل از پرینت گرفتن پنجره print setup باز بشه .
اما مشکلی که هست اینکه کارهایی که در پنجره print setup انجام میشه بعد از زدن دکمه print اعمال نمیشه .
مثلا من می خوام از روی فرم 3 بار پشت سر هم print بگیرم . اما این کار انجام نمیشه !
چه قطعه کدی باید به این برنامه اضافه کنم تا تغییراتی که در print setup اعمال میکنم به برنامه اعمال بشه .
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]