impressão vb

olha isso aqui pode te ajudar.

Private Sub imprime_dados()
Dim tamanhofolha As Integer
Dim i As Integer
'define a fonte e o tamanhao da fonte
Printer.FontName = "Arial"
Printer.FontSize = "10"
tamanhofolha = Printer.ScaleHeight - 1440 'define o tamanho da folha
rs.MoveMin 'movimenta o ponteiro para o primeiro registro

contapagina = 0 'inicia o variável
Call cabecalho 'chama a rotina do cabeçalho

Do While Not rs.EOF '

  If Printer.CurrentY >= tamanhofolha Then 'verifica se se folha já 'encheu'
     Printer.NewPage
     Call cabecalho
  End If

  '---------------imprime os dados da tabela----------------------------
  Printer.Print Tab(0); rs("nome");
  Printer.Print Tab(30); rs("endereço");
  Printer.Print Tab(60); rs("cidade");
  Printer.Print Tab(90); rs("estado");
  Printer.Print Tab(95); rs("cep")
  '--------------------------------------------

  rs.MoveNext 'vai para o proximo registro

Loop

Printer.EndDoc 'envia os dados para a impressora

MsgBox "Os dados foram enviados para a impressora ... ! "

End Sub