Visualizar uma área especifica [RESOLVIDO]

[Marcus Bull]

Boa noite,

Alguém pode me dar uma ajudinha, eu tenho uma planilha com 5 colunas para cada coluna tem uma macro para Visualizar e Imprimir se necessario (separadamente) uso as seguinte macros :

Sub Preview_1()
' Nota: Vizualisa o conteúdo do 1º Bimestre
' Sheets("Relatorios").PrintPreview = "$B$5:$D$55"
Worksheets("Relatorios").PrintPreview
End Sub

Essa macro eu só consigo vizualisar a coluna, se eu pedir para imprimir cancelar ai sim eu visualizo, mas na verdade eu gostaria que cada coluna tivesse sua previsualização.

Sub Imprime_1()
' Nota : Imprimir o conteúdo do 1º Bimestre
Application.ScreenUpdating = False
Sheets("Relatorios").PageSetup.PrintArea = "$B$5:$D$55"
Application.Dialogs(xlDialogPrint).Show
End Sub

Agradeço antecipadamente

Marcus Bull
Petrópolis/RJ

[webmaster]

Marcus,

Não entendi essa parte:

mas na verdade eu gostaria que cada coluna tivesse sua previsualização.

Pode explicar melhor?

[Marcus Bull]

Desculpa não soube me expressar . E que eu tenho q visualizar as colunas separadamente.

Eu so consigo visualizar se eu pedir para imprimir, vai abrir a caixa da impressão, eu cancelo, ele marca a area q eu quero ai sim eu visualizo, o que eu queria era poder visualizar antes de imprimir, por que se tiver algum problema não desperdiço folha.
Ex.: 1º Bimestre - 2º Bimestre - 3º Bimestre - 4º Bimestre - Resultado Final, Em cima de cada coluna eu tenho dois icones, uma lupa e uma impressora, com as respectivas macros abaixo,a impressão esta funcionando eu so não consigo delimitar a area a ser visualizada.

os ranges são:
1º Bim = B5:D55
2º Bim = F5:H55
3º Bim = J5:L55
4º Bim = N5:P55
Resultado Final = B5:U55

Sub Preview_1()
'Nota: Vizualisa o conteúdo a ser impressao
'Sheets("Relatorios").PrintPreview = "$B$5:$D$55"
Worksheets("Relatorios").PrintPreview
End Sub
Sub Imprime_1()
'Nota : Imprimir o conteúdo do 1º Bimestre
Application.ScreenUpdating = False
Sheets("Relatorios").PageSetup.PrintArea = "$B$5:$D$55"
Application.Dialogs(xlDialogPrint).Show
'Worksheets("Relatorios").PageSetup.PrintArea
End Sub

Mto obrigado,

Marcus Bull
Petropolis,RJ

Anúncios