Send Preview by email (Excel Format)

[Bob Vance]

In Access 2002 I used to be able to send my report (Send To Mail Recipient
and Choose excel format) I have lost that now in Access 2007 is there
another way I can send it via this format!

 

[Arvin Meyer [MVP]]

Not as an Excel format. You can output the underlying query to Excel, or
print the report to a PDF.

 

[Bob Vance]

Thanks Arvin, Thought I was going mad as I used to be able to email in excel
format!
This is my Report code is it possible to put another control on my form to
send it to Excel format?

Private Sub Report_Open(Cancel As Integer)
Dim strSQL As String

Select Case Me.OpenArgs

Case "MonthlyPaid"

Me.Caption = "Monthly Report"



If Form_frmBillStatement.fraSelectInvoice.value = 1 Then


strSQL = "Select * from qrysubMonthlyPaid ORDER BY
qrysubMonthlyPaid.InvoiceNo ASC"
ElseIf Form_frmBillStatement.fraSelectInvoice.value = 2 Then

strSQL = "Select * from qrysubMonthlyPaid where
qrysubMonthlyPaid.InvoiceNo<>0"
End If

tbDueOwnerName.Visible = False
tbDueAmount.Visible = False
tbPaymentMethod.Visible = False
tbAmountPaid.Visible = False
tbBillID.Visible = False
tbCreditType.Visible = False

tbDate.Left = 0
tbDate.ControlSource = "InvoiceDate"
tbInvoiceNo.ControlSource = "InvoiceNo"
tbOwnerName.ControlSource = "OwnerName"
tbHorseName.ControlSource = "HorseDetail"
tbAmount.ControlSource = "TotalAmountPaid"
tbSumOfAmount.Visible = False
tbSumOfAmount.ControlSource = "TotalAmountPaid"
lblTotal.Visible = True
tbTotal.Visible = True

Not as an Excel format. You can output the underlying query to Excel, or
print the report to a PDF.

 

[Arvin Meyer [MVP]]

Microsoft no longer supports outputting reports to Excel. The other choice
you have is to create a report in Excel and output the query results of an
Access query to that report.
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com

Thanks Arvin, Thought I was going mad as I used to be able to email in
excel format!
This is my Report code is it possible to put another control on my form to
send it to Excel format?

Private Sub Report_Open(Cancel As Integer)
Dim strSQL As String

Select Case Me.OpenArgs

Case "MonthlyPaid"

Me.Caption = "Monthly Report"



If Form_frmBillStatement.fraSelectInvoice.value = 1 Then


strSQL = "Select * from qrysubMonthlyPaid ORDER BY
qrysubMonthlyPaid.InvoiceNo ASC"
ElseIf Form_frmBillStatement.fraSelectInvoice.value = 2 Then

strSQL = "Select * from qrysubMonthlyPaid where
qrysubMonthlyPaid.InvoiceNo<>0"
End If

tbDueOwnerName.Visible = False
tbDueAmount.Visible = False
tbPaymentMethod.Visible = False
tbAmountPaid.Visible = False
tbBillID.Visible = False
tbCreditType.Visible = False

tbDate.Left = 0
tbDate.ControlSource = "InvoiceDate"
tbInvoiceNo.ControlSource = "InvoiceNo"
tbOwnerName.ControlSource = "OwnerName"
tbHorseName.ControlSource = "HorseDetail"
tbAmount.ControlSource = "TotalAmountPaid"
tbSumOfAmount.Visible = False
tbSumOfAmount.ControlSource = "TotalAmountPaid"
lblTotal.Visible = True
tbTotal.Visible = True