Yo creo que si ya tienes toda la información en una pantalla de visual, puedes bajarla una plantilla Excel *XLT, cuyo diseño la debes hacer tu con las características de la factura..
Dim XlsHoja As Excel.Application
If MsgBox("Accederá a un formato en Excel " & Chr(13) & "Confirmar ", vbInformation + vbYesNo, "Aviso...") = vbNo Then Exit Sub
Set XlsHoja = CreateObject("EXCEL.APPLICATION")
XlsHoja.Workbooks.Add Template:="C:\F_Parte.XLT"
XlsHoja.Application.Visible = True
XlsHoja.Windows(1).Visible = True
Rs.Open " Select * From RINSP,CPIA,MEMB,MRED,ARMA " _
& " Where CPIA.CO_ARMA=ARMA.CO_ARMA And " _
& " RINSP.CO_CPIA=CPIA.CO_CPIA And " _
& " RINSP.CO_EMBA=MEMB.CO_EMBA And " _
& " RINSP.CO_REDE=MRED.CO_REDE And " _
& " CO_INSP='" & LbCodInsp & "'"
If Rs.EOF = False Then
XlsHoja.Sheets(1).Cells(1, 49) = Rs!co_rede
XlsHoja.Sheets(1).Cells(2, 49) = Format(Rs!Fe_Insp, "dd-mmm-yyyy")
XlsHoja.Sheets(1).Cells(3, 49) = Trim(Rs!co_loca)
XlsHoja.Sheets(1).Cells(4, 49) = Trim(Rs!no_insp)
.....
.....
End If
Rs.Close
Set XlsHoja=Nothing
Armando
sds