Question

想用VB编写一个保存打印程序，在文本框输入数据后后台能够保存为EXECL，并且能够自动生成编号，且输入的数

Answer 1

保存打印？如何理解，把打印保存了？先保存再打印？还是就是打印的意思？意思不同，代码不同！
张志晨：按只打印的意思写个代码吧。

function printTxt ()
Printer.Orientation = 1 竖向进纸
With Printer
.NewPage
.FontName = "宋体"
.FontSize = 24
.FontBold = True
.CurrentX = 100: 左边距
.CurrentY = 100 '上边距
Printer.Print text1.text‘要打印的内容
.EndDoc
End With
End function

追问

下边不是有两个按钮吗，点击保存保存到后台 EXCEL文件 保存的项目有型号 底盘号 发动机号 编号，点击打印后开始打印 帮我编写一个完整的发我邮箱可以嘛 我可以追加20分651219879@qq.com、
谢谢

追答

所有代码邮给你了

Answer 2

先画一个Text1和一个Timer1；把Timer1.Interval设为100；编辑代码
Private Sub Timer1_Timer()
Text1.Text = Clipboard.GetText
End Sub
就well done了。很简单。