刚回复做了一个示例， 干脆发个贴子吧。
做VB程序如果需要用到打印，也许能给需要的朋友一个参考。
大神略过啊，我只是一个初学者而已。



工程引用

收到的鲜花

• 约定的童话 于 2022-06-03 07:14 送鲜花  1朵  

需要电脑安装 安装版本的office才能正常运行，我的绿色版Office软件表示用不了。

在一楼的基础上，增加
Private Sub Com_print_Click()
Dim Wdapp As Word.Application
Dim Wddoc As Word.Document
  Set Wdapp = CreateObject("word.Application")    '创建word程序，打开word
  Set Wddoc = Wdapp.Documents.Add                '在word中添加一个新文档
  With Wdapp
       .Visible = True
       .Activate
       Wddoc.Range.InsertAfter Text1.Text
  End With
  Set Wdapp = Nothing        '清除word对象
  Set Wddoc = Nothing
End Sub

共同学习

这个太好了！