Macro para imprimir

si, con la Propiedad While.....wend
Entra a mi página, en contarras macros escritar y archivos de ejemplo
descárgate el que dice.. sistema de facturación, tiene un código para filtrar registros algo parecidio a lo que tu buscas...

Muchas gracias, la información es muy buena, pero estoy trabajando en una base con un formato ya determinado y lo que necesito es imprimir cada linea en una factura preimpresa y de hoja continua.
Para poder imprimir de la factura 1 a la 10 de manera auotmatica, es decir que una vez que imrima la 1 traiga los datos de la 2 e imprima luego la 3 y así hasta la 10,
Estoy tratando de crear una macro pero la verdad me ha sido difícil, me podrías ayudar
Dim desde, hasta, Numero As Double
Sheets("BASE DE TRABAJO").Select
desde = Range("A10").Value
hasta = Range("B10").Value
If desde < 12 Or hasta < 12 Then
    MsgBox "   ", vbCritical, "   "
    Exit Sub
End If
If hasta < desde Then
    MsgBox "  ", vbCritical, " "
    Exit Sub
Else
    While desde <= hasta
        Sheets("BASE DE TRABAJO").Select
        Numero = Range("A" & desde).Value
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
        Sheets("FACTURA").Select
        Application.ActivePrinter = "\\131.1.20.29\XRX5655CLL71 en Ne02:"
        ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=2, _
        ActivePrinter:="\\131.1.20.29\XRX5655CLL71 en Ne02:", Collate:=True
        desde = desde + 1
    Wend
End If
End Sub