Dim doc As New PrintDoc() '定义一个报表.........
..........
...........
Dim fl As String = file & "样品二维码000" & ".pdf"
Try
doc.SavePDF(fl) '保存为PDF文件
Dim Proc As New Process '打开PDF文件
Proc.File = file
Proc.Start()
Proc.File = fl
Proc.Start()
PopMessage("请选择40×30mm的标签纸打印,个别打印机需自定义40×30.5mm标签纸!","提示", PopIconEnum.OK,8)
Catch ex As Exception
MessageBox.Show("文件已经被其它程序打开,无法保存!","提示",MessageBoxButtons.OK)
End Try
发生错误时,生成进度...正在保存 关不掉