Bom dia.

By Help Excel VBA :

Método PrintPreview
Mostra uma visualização do objeto tal como ele aparece quando impresso.

expressão.PrintPreview
expressão - necessária. Uma expressão que retorna um objeto da lista Aplica-se a.

Exemplo
Este exemplo exibe Sheet1 em visualização de impressão.
Worksheets("Sheet1").PrintPreview

Private Sub CommandButton6_Click()
    'Exibe a planilha Relatório
    Worksheets("Relatorio").PrintPreview
End Sub

Método PrintOut
Imprime o objeto.

expressão.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName)
expressão - necessária. Uma expressão que retorna um objeto da lista Aplica-se a.

From - Variant opcional. O número da página pela qual começar a impressão. Se esse argumento for omitido, a impressão começará pelo início.

To - Variant opcional. O número da última página a imprimir. Se esse argumento for omitido, a impressão terminará na última página.

Copies - Variant opcional. O número de cópias a imprimir. Se esse argumento for omitido, será impressa uma cópia.

Preview - Variant opcional. True para que o Microsoft Excel invoque a visualização de impressão antes de imprimir o objeto. False (ou omitido) para imprimir o objeto imediatamente.

ActivePrinter - Variant opcional. Define o nome da impressora ativa.

PrintToFile - Variant opcional. True para imprimir para um arquivo. Se PrToFileName não for especificado, o Microsoft Excel solicitará ao usuário que digite o nome do arquivo de saída.

Collate - Variant opcional. True para agrupar múltiplas cópias.

PrToFileName - Variant opcional. Se PrintToFile for definido como True, esse argumento especificará o nome do arquivo para o qual você deseja imprimir.

Comentários
"Páginas" nas descrições de From e To se referem a páginas impressas — e não a páginas gerais da planilha ou pasta de trabalho.

Exemplo
Este exemplo imprime a planilha ativa.

ActiveSheet.PrintOut

[]s

Amigo, está travando o programa assim que executo.

Tenho 2 planilhas 1 de cadastros e outra de relatório, queria saber como faço para enviar os dados especifico para planilha de relatório, que seja um botão dentro do Formulário Imprimir, preenche automaticamente a planilha e visualiza a impressão!

Obrigado pela ajuda!

Conseguir transferir os dados para outra planilha, é como se fosse um cadastro!

Private Sub btnRelatorio_Click()

Sheets("Relatorio").Range("B3").Value = lblCod.Caption
Sheets("Relatorio").Range("C3").Value = txtProjecao.Text

End Sub

Obrigado pela força e conhecimento!