Marcelo, neste topico tem um exemplo, veja se consegue adaptar:

viewtopic.php?f=10&t=19660#p99898

Bom Dia eu uso o código abaixo:

Sheets(Array("Plan1", "Plan2", "Plan3")).Select 'Em "Plan1"... coloque o nome de cada planilha.
Application.Dialogs(xlDialogPrint).Show

Espero ter ajudado!

Basole eu guardei o exemplo so nao entendi como posso usar isso em um loop.

Tenho uma lista de dados que alimenta por codigo uma outra planilha e isso é impresso dentro do proprio codigo algo mais ou menos assim

Sub imprimir

Dim linha as long
Dim W as worksheet



linha=2
W = sheets("Modelo")

Do while cells(linha,2)value <> ""

Codigo para gerar as planilhas 

W.printout

loop

end sub

Em resumo a linha w.pritout imprime na impressora padrao, nao posso alterar a impressora padrao mas preciso escolher a impressora (apenas uma vez)

Marcelo, você tem de fazer a chamada para a rotina referente a impressora antes de iniciar o loop, assim irá abrir para escolher a impressora e a instrução "W.printout", irá imprimir na impressora selecionada.
Vocè tambem pode utilizar a rotina abaixo, a mesma verifca qual a impressora ativa no momento e exibe mensagem se pretende escolher outra e exibe a lista das mesmas :

Sub DefinirImpressora()

    Dim intQualPrt   As Integer

    intQualPrt = MsgBox("A Impressora Ativa no momento é: " & Chr(13) & Chr(13) _
        & Mid$(ActivePrinter, 1, 26) & Chr(13) & Chr(13) _
        & "Deseja alterar a Impressora ?", vbYesNo, "Alerta !!!")

    If intQualPrt = vbYes Then

        Let nOpt = Application.Dialogs(xlDialogPrinterSetup).Show
    
            If nOpt = True Then
                'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
            Else
                Exit Sub
            End If
    Else
            'MsgBox "A impressora ativa no momento é: " & Chr(13) & Chr(13) & Mid$(ActivePrinter, 1, 26)
            'MsgBox "A impressora Não foi alterada !!!"
    
    End If
End Sub

[]s