Access 2013：将数据复制到Excel并打印（VBA）

Question

I'd like a button that, when clicked, copies data from "field1" and "field2" into an Excel spreadsheet to "field 3" and "field 4" and prints the outcome.

Basically, once someone places an order and I click the "Paid" button, it pushes the info into a template and prints.

Answer 1

The following code should get you started. The Excel template OrderSheet.xltx has two single-cell Named Ranges: field3 and field4 . The rest should be pretty self-explanatory.

Private Sub cmdPlaceOrder_Click()
Dim objExcel As Object  '' Excel.Application
Dim objSheet As Object  '' Excel.Worksheet
Set objExcel = CreateObject("Excel.Application")
objExcel.Workbooks.Add "C:\Users\Public\OrderSheet.xltx"
objExcel.Range("field3").Value = Me.txtField1.Value
objExcel.Range("field4").Value = Me.txtField2.Value
Set objSheet = objExcel.ActiveSheet
objSheet.PrintOut
Set objSheet = Nothing
objExcel.ActiveWorkbook.Close False  '' save changes = No
objExcel.Quit
Set objExcel = Nothing
End Sub