PrintOut 方法

   单位mil说明：1mil=0.001英寸，15mil=0.015英寸： 1、当条码标签打印机分辨率为203dpi时，也就是打印头的打印元素宽度为1英寸/203=0.0049英寸，0.015除以0.0049取整后为3，则在Codesoft软件中元素宽度（点数）为3 。 2、当条码标签打印机分辨率为300dpi时，也就是打印头的打印元素宽度为1英寸/300=0.0033英寸，0.015除以0.0033取整后为5，则在Codesoft软件中元素宽度（点数）为5 。

       Private Sub COMD1_Click() Dim abc As Long abc = Me.id    '取得当前记录号 DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70   '保存记录 DoCmd.GoToRecord , , acNewRec     '到新记录 DoCmd.OpenReport "报表1", , , "[id]=" & abc    '打印当前记录 End Sub