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

[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 می گیرد