G
Guest
hi, im using the following code to print whatever report that is active, but is there a simular way to export to ex excel?
Private Sub Skriv_Click(
On Error GoTo Err_Skriv_Clic
DoCmd.OpenReport Me.OpenArgs, acNorma
DoCmd.Clos
Exit_Skriv_Click
Exit Su
Err_Skriv_Click
MsgBox Err.Descriptio
Resume Exit_Skriv_Clic
End Su
Erik
Private Sub Skriv_Click(
On Error GoTo Err_Skriv_Clic
DoCmd.OpenReport Me.OpenArgs, acNorma
DoCmd.Clos
Exit_Skriv_Click
Exit Su
Err_Skriv_Click
MsgBox Err.Descriptio
Resume Exit_Skriv_Clic
End Su
Erik