Dim nFile as integer

Dim nPrint as integer

Dim sInfo as string

    nFile = FreeFile
    Open sNomeArq For Input As #nFile
    nPrint = FreeFile
    Open Printer.DriverName For Output As #nPrint
    While Not EOF(nFile)
        Line Input #nFile, sInfo
        Print #nPrint, sInfo
    Wend
    Close #nFile
    Close #nPrint

 

Assim voce imprime qualquer arquivo texto ou texto.

Se nao for arquivo texto, basta voce usar sInfo pra carregar com os dados que voce quer