Visualização de impressão sem acesso às planilhas

[Erika Tímpano]

É possível abrir a visualização da impressão de uma determinada área de uma planilha, no formato que ela foi desenhada sem a visualização das planilhas por trás do form?

[Paulo H Grando]

Você quer fazer isso em que momento? Quando abrir a planilha? Essa área é uma seleção de impressão? Passe mais detalhes, por favor.

[Erika Tímpano]

Ok. Vou tentar descrever.

Eu tenho um form que é uma mascara de entrada de parâmetros para cálculo de um determinado produto. Após o cálculo, o sistema gera uma planilha com uma espécie de proposta.

Como o usuário não tem interface nenhum com as planilhas que estão por trás do form, gostaria que eles pudessem visualizar a área de impressão, e ainda assim sem interface com as planilhas.......

[Paulo H Grando]

Você pode usar o seguinte código, que chama diretamente o preview de impressão:

Sheets(1).PrintPreview

Se precisar definir a área de impressão:

Sheets(1).PageSetup.PrintArea = "$A$1:$F$100"

Para limpar a área de impressão basta passar vazio para a propriedade:

Sheets(1).PageSetup.PrintArea = ""

[JoséA]

Private Sub CommandButton1_Click()
Plan1.Activate 'plan desejada
UserForm1.Hide
ActiveWindow.SelectedSheets.PrintPreview
UserForm1.Show
End Sub

[Erika Tímpano]

Então... preciso que ele não tenha acesso às planilhas. O cód acima oculta o form... não é esta a intensão.

[JoséA]

Então... preciso que ele não tenha acesso às planilhas. O cód acima oculta o form... não é esta a intensão.

Neste caso seria só gravar uma macro.

Private Sub CommandButton1_Click()
    Sheets("Plan1").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub