Solicito ayuda para mi Programa en VB, Urgente por favor!!

[jaullo]

Hola crossward, revisando tu proyecto y te digo que generalmente no reviso cosas de este tipo veo que usas crystal reports. Pues porque no creas un reporte factura con crystal. O coloca un botn en excel y pega esto

'funcion exportar a excel
Dim ApExcel As Object
ApExcel = CreateObject("Excel.application")
' Hace que Excel se vea
ApExcel.Visible = True
'Agrega un nuevo Libro
ApExcel.Workbooks.Add()
'Poner Titulos
ApExcel.cells(1, 1).formula = "Interesados"
ApExcel.cells(2, 1).Formula = lblNombre2.Text
'cambiar la fuente
ApExcel.cells(1, 1).Font.Size = 12
ApExcel.cells(1, 2).Font.Size = 12
ApExcel.cells(1, 3).Font.Size = 12
ApExcel.cells(1, 4).Font.Size = 12
ApExcel.cells(1, 5).Font.Size = 12
ApExcel.cells(1, 6).Font.Size = 12

ApExcel.cells(1, 2).formula = "Código Cliente"
ApExcel.cells(2, 2).Formula = cboClientes.Text
ApExcel.cells(1, 3).formula = "Direccion"
ApExcel.cells(2, 3).Formula = lblDireccion2.Text
ApExcel.cells(1, 4).formula = "Por Concepto de"
ApExcel.cells(2, 4).Formula = cboProducto.Text
ApExcel.cells(1, 5).formula = "Cantidad"
ApExcel.cells(2, 5).Formula = lblCantidadProductos2.Text
ApExcel.cells(1, 6).formula = "Total a Pagar"
ApExcel.cells(2, 7).Formula = lblTotal2.Text
' Aplica Formula
'ApExcel.cells(3, 4).Formula = "=B3-C3"
' Hace una Seleccion de celdas y pone bordes de Color
ApExcel.RANGE("B3:D3").BORDERS.COLOR = RGB(255, 0, 0)
ApExcel = Nothing

Saludos,