跪求VB套用模板打印，打印预览

Question

本人正在做个ERP系统，想让用户自行修改打印模板，然后进行打印，打印预览各位有没有这方面的代码，帮帮忙

Answer 1

使用两个 PictureBox，缺点是打印出的是屏幕字体，没有打印机字体漂亮。Picture1 是可见的，内置各种编辑控件。Picture2 置于 Picture1 底层，同样大小。   Picture1.SetFocus
   Picture2.AutoRedraw = True
   rv = SendMessage(Picture1.hwnd, WM_PAINT, Picture2.hDC, 0)
   rv = SendMessage(Picture1.hwnd, WM_PRINT, Picture2.hDC, _
   PRF_CHILDREN + PRF_CLIENT + PRF_OWNED)
   Picture2.Picture = Picture2.Image
   Picture2.AutoRedraw = False   Printer.Print ""
   Printer.PaintPicture Picture2.Picture, 0, 0
   Printer.EndDoc

Answer 2

建议使用GEID++控件，WWW.RUBYLONG.CN ，绝非广告。

Answer 3

引用excel对象和myexcel.dll,用excel做模板,调整好打印格式,调用模板传数据即可Dim myPath As String
Dim myOutput As New MyExcel.mClass
myPath = CStr(App.Path) & "\MB_Person.xlt"
'使用模板中第2个工作表
myOutput.StartModel myPath, 2
myOutput.Addcell 2, 3, Format(Date, "YYYY 年MM月DD日")
......
Set myOutput = Nothing

Answer 4

传完数据,用一条语句实现打印预览
ex.ActiveWorkbook.PrintPreview  '打印预览