imprimir pela caixa de impressão

:huh: através desse código eu não estou conseguindo imprimir o documento word, pois a caixa de impressão abre eu escolho as paginas mas não imprime é como não desse tempo para a impressora capturar o texto.Por favor se alguém sabe como fazer me ajude:código:Private Sub Command30_Click()Dim Word As New Word.ApplicationWith Word.Documents.Open "c:\site.doc".Visible = FalseCommonDialog1.ShowPrinter.Documents("c:\site.doc").Close wdDoNotSaveChangesEnd WithSet Word = NothingEnd Subse eu mudar de CommonDialog1.ShowPrinter para printout eu consigo imprimir uma cópia mas eu quero várias!!!!! já me disseram com loop dá pra fazer isso mas como???? não sei mexer muito bem com isso.