我在sheet1中某三个固定的单元格中打印大字号车辆通行证信息，如：A3中输入编号 ,在B3中输入车号，D3中输入单位,我在表1中其它单元格建一个窗体按钮“打印”，当点击此按钮后，在打印的同时，将打印的三个信息自动记录到sheet2中。有劳高手给予解决，悬赏100金币。
按下“打印”按钮，打印内容不用清空。在sheet2中自动记录时，最好能自动添加上当日日期。
第1个回答 推荐于2016-09-16
1、按alt+f11打开VBA编辑器，双击工程窗口的sheet1,在弹出的代码编辑区粘贴如下代码：
Sub PrintR()
Dim i As Long
i = Sheet2.Cells(65536, 1).End(xlUp).Row
Sheet2.Cells(i + 1, 1) = Date
Sheet2.Cells(i + 1, 2) = Sheet1.[A3]
Sheet2.Cells(i + 1, 3) = Sheet1.[B3]
Sheet2.Cells(i + 1, 4) = Sheet1.[D3]
Sheet1.PrintOut
End Sub
2、将你建的窗体按钮指定给宏：sheet1.PrintR；
3、最好设置一下表1的打印区域，否则连按钮也会被打印出来；
4、最好给表2第一行做一个表头，并适当调整表2格式（比如日期对应的A列的列宽调宽点，否则会显示成#######），方便查阅。本回答被提问者采纳
Sub PrintR()
Dim i As Long
i = Sheet2.Cells(65536, 1).End(xlUp).Row
Sheet2.Cells(i + 1, 1) = Date
Sheet2.Cells(i + 1, 2) = Sheet1.[A3]
Sheet2.Cells(i + 1, 3) = Sheet1.[B3]
Sheet2.Cells(i + 1, 4) = Sheet1.[D3]
Sheet1.PrintOut
End Sub
2、将你建的窗体按钮指定给宏：sheet1.PrintR；
3、最好设置一下表1的打印区域，否则连按钮也会被打印出来；
4、最好给表2第一行做一个表头，并适当调整表2格式（比如日期对应的A列的列宽调宽点，否则会显示成#######），方便查阅。本回答被提问者采纳
