چاپ کردن متن روی عکس

[mostafa612003]

سلام
آیا راهی وجود دارد که فقط متنی که روی عکس است را پرینت گرفت
فرض کنید یک کنترل عکس روی فرمتان است و یک کنترل متن را هم روی آن گذاشتید
و می خواهید متن را چاپ کنید
در همان جایی که هست ولی بدون عکس
خیلی متشکرم

[(سیدشریفی)]

چرا از Printer.Print استفاده نمیکنید ؟

[R_BABAZADEH]

سلام

چرا از Printer.Print استفاده نمیکنید ؟

تا اونجایی که من می دونم این دستور کل فرم رو پیرینت می کنه
در صورتی که دوست ما نیاز به یک ocr داره تا بتونه متن رو از عکس جدا کنه

[حامد مصافی]

Private Sub Command1_Click()
Dim TempPic As StdPicture

With Picture1
Set TempPic = Picture1.Picture
Set .Picture = Nothing
.CurrentX = Label1.Left
.CurrentY = Label1.Top
Set .Font = Label1.Font
Picture1.Print Label1
Printer.PaintPicture Picture1.Image, 0, 0, Picture1.Width, Picture1.Height
Picture1.Picture = TempPic
.Cls
End With
End Sub


دو نکته
1 - parent کنترل لیبل باید کنترل Picture باشه
2 - خاصیت Autoredraw کنترل Picture باید true باشه

[mostafa612003]

سلام
خیلی ممنون
منظورتان این است که من ابتدا یک کنترل picture روی فرم بگذارم و سپس یک کنترل label ؟؟
متشکرم

[حامد مصافی]

سلام
خیلی ممنون
منظورتان این است که من ابتدا یک کنترل picture روی فرم بگذارم و سپس یک کنترل label ؟؟
متشکرم
بله
و لیبل باید روی کنترل تصویر باشه

[(سیدشریفی)]

جناب R_BABAZADEH فرمان Printer.Print آرگومانهایی دارد که ما میتوانیم از کنترلهای مشخصی پرینت بگیریم
همانند مثالی که جناب BlackDal نوشته اند .

یا مثلا :

Printer.Font.Bold = False
Printer.Font.Italic = False
Printer.Font.Name = "Tahoma"
Printer.Font.Strikethrough = False
Printer.Font.Underline = False
Printer.Font.Size = 8
Printer.ForeColor = QBColor(10)
Printer.CurrentX = 8000
Printer.CurrentY = 600
Printer.Print Label1.Caption


دوستان اگر سوال بیشتری در این زمینه داشتند در خدمت هستم

:موفق:

[mostafa612003]

سلام
من این کار را با کنترل image کردم
به نتیجه نرسیدم

[mostafa612003]

سلام
برنامه اول برای کنترل picture جواب نداد
فقط از فرم خالی print می گیرد