vb控制打印机自动打印表格

se"Setexcel=Nothingworkbook.Close(True)EndIfForm1.HideForm2.mand3_Click()'暂停打印IfDir("C:\excel.bz")=""ThenMsgBox"!^-^请打开要打印的表格^-^!"ElseTimer1.Enabled=FalseMsgBox"!^-^打印暂停^-^!"&Chr(10)&"!^-^已打印"&Form2.cel-present-1&"张^-^!"mand4_Click()'继续打印IfDir("C:\excel.bz")=""ThenMsgBox"!^-^请打开要打印的表格^-^!"ElseTimer1.Interval=Form2.timeTimer1.Enabled=mand5_Click()'开始打印IfDir("C:\excel.bz")=""ThenMsgBox"!^-^请打开要打印的表格^-^!"Elsepresent=0Form2.cel=1Timer1.Interval=Form2.timeTimer1.Enabled=mand6_Click()'下一张IfDir("C:\excel.bz")=""ThenMsgBox"!^-^请打开要打印的表格^-^!"Elsepresent=present+1IfForm2.uint<>0Thensheet(2).Cells(1,2)=sheet(1).Cells(present,Form2.uint)'单位名称IfForm2.goods<>0Thensheet(2).Cells(2,2)=sheet(1).Cells(present,Form2.goods)'产品名称IfForm2.number<>0Thensheet(2).Cells(3,3)=sheet(1).Cells(present,Form2.number)'设备编号