如何将输入文字插入到指定图片上 并在默认打印机上打印？？？

Question

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPrivate Sub CmdExit_Click()
    Unload Me
End SubPrivate Sub CmdReset_Click()
    Text1.Text = ""
End SubPrivate Sub CmdPrint_Click()
    Dim s As String
    s = Text1.Text
    s = String(1024, "a")
    
    Open App.Path & "\test.bmp" For Binary As #1
        Seek #1, FileLen(App.Path & "\test.bmp")
        Put #1, , s
    Close #1    ShellExecute Me.hwnd, "print", App.Path & "\test.bmp", vbNullString, vbNullString, 1End Sub
   目前只打印图片在默认打印机上，但没有文字（通过文本输入）？

Answer 1

把图片打开利用bitble api函数把文字绘制到图片上,然后进行打印只是理论上的哈,我可没有试验过~~~

Answer 2

用一个PICTUREBOX做中介.
加载图片.
将文件输出到图片中.
然后,整个图片打印.Private Sub Command1_Click()
        Dim PutStr As String
        PutStr = "中华人民共和国"
        
        Picture1.AutoRedraw = True
        Picture1.AutoSize = True
        Picture1.Picture = LoadPicture("F:\Image\1.bmp")
        Picture1.CurrentX = 200
        Picture1.CurrentY = 100
        Picture1.Font.Name = "黑体"
        Picture1.ForeColor = RGB(255, 0, 0)
        Picture1.Font.Size = 24
        Picture1.Print PutStr
        
        Printer.PaintPicture Picture1.Image '打印
        Picture1.AutoRedraw = False
End Sub