Visualisando impressão

Estou trabalhando com excel e vba.Gostaria de saber como faço para visualizar a impressão, escolher a impressora e alterar algumas configurações.Achei o seguinte código em um forum, mas esta dando erro:_____________________________________________________Private Sub Command1_Click ( ) Dim PaginaInicial, Paginafinal , numerodecopias, i CommonDialog1.CancelError = True On Error GoTo Trataerro 'mostra a janela para impressora CommonDialog1.ShowPrinter 'Captura os valores definidos pelo usuário na janela PaginaInicial = CommonDialog1.FromPage PaginaFinal = CommonDialog1.ToPage NumerodeCopias = CommonDialog1.Copies For i=1 to Numerodecopias Form1.PrintForm Next Exit SubTrataErro: Exit SubEnd Sub_____________________________________________________Se alguem puder me ajudar, agradeço!!