con este codigo creas un libro de excel lo que tienes que hacer llenarlo enrutando los datos a las celdas para esto utiliza cells o range y tiene una secuencia de impresion dela hoja espero te sirva.
Dim miAppli As Excel.Application
Dim miLibro As Excel.Workbook
Dim miHoja As Excel.Worksheet
Dim BeginPage, EndPage, NumCopies, i
Set miAppli = New Excel.Application
Set miLibro = miAppli.Workbooks.Open(MiPath & "\PlanillaVacaciones.xls")
Set miHoja = miLibro.Worksheets("General")
' Establecer CancelError a True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' Presentar el cuadro de diálogo Imprimir
CommonDialog1.ShowPrinter
' Obtener los valores seleccionados por el usuario en el cuadro de
' diálogo
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
For i = 1 To NumCopies
' Código para enviar los datos a la impresora
miHoja.PrintOut 0, 0, 1, 1, 1
Next i
ErrHandler:
' El usuario ha hecho clic en el botón Cancelar
miLibro.Close (False)
Set miHoja = Nothing
Set miLibro = Nothing
Set miAppli = Nothing
Exit Sub
