Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
visualizar impressã...
 
Notifications
Clear all

visualizar impressão ajustadas todas as colunas na mesma pág

 
2024 - VBA & Macros
Post Recente por juliowd 10 anos atrás
6 Posts
2 Usuários
0 Reactions
1,540 Visualizações
RSS
 juliowd
(@juliowd)
Posts: 149
Estimable Member
Topic starter
 

Oi!
Mais uma vez recorro aos meus colegas feras em excel.
Eu tenho a sub que manda visualizar a impressão.
Já defini a área que quero visualizar.
Porém tentei fazer de acordo com as rotinas geradas pelo excel para visualizar impressão ajustadas todas as colunas na mesma página.
Tentei encontrar alguma coisa no google e na busca aqui do site. Nada.
Não sei onde estou errando, mas creio que não é uma coisa mto difícil.
Teria possibilidade de me ajudar com a macro para esse objetivo?

Sub visualizar()

ActiveWorkbook.PrintPreview

End Sub

Eu usei esta gerada pelo excel, mas que não funcionou, como eu expus ali em cima. Veja:


Sub visualizar()
        ActiveWorkbook.PrintPreview
                 Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = "$A$6:$H$30"
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.511811024)
        .RightMargin = Application.InchesToPoints(0.511811024)
        .TopMargin = Application.InchesToPoints(0.787401575)
        .BottomMargin = Application.InchesToPoints(0.787401575)
        .HeaderMargin = Application.InchesToPoints(0.31496062)
        .FooterMargin = Application.InchesToPoints(0.31496062)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 0
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
    Application.PrintCommunication = True
End Sub

Obrigado desde já!!!

Atenciosamente,
Júlio Wanderlind

 
Postado : 15/10/2014 6:32 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Olha eu tentei mas eu não entendi sua dúvida. :?

O que é que você deseja?

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 15/10/2014 1:04 pm
 juliowd
(@juliowd)
Posts: 149
Estimable Member
Topic starter
 

Boa tarde!!
Então...
eu preciso imprimir uma planilha com mtas colunas, que pelas configurações normais, usará várias folhas para imprimir todo o conteúdo. Aí fica ilegível.
Eu, manualmente no office uso uma configuração que lá na hora de imprimir, ajusta o dimensionamento do conteúdo na hora de imprimir. E eu escolho essa opção e a impressão fica certinha. Com todas as colunas na MESMA folha.
Coloquei um PRINT pra mostrar o que eu desejo.

Obrigado desde já!

planilhando.rar
 
Postado : 15/10/2014 1:42 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Eu não sei como te ajudar..pois eu estou com dúvida...além disse eu precisaria fazer alguns testes...em fim tente adaptar!

Sub AleVBA_13172()
With ActiveSheet.PageSetup
    .PrintTitleRows = "$3:$3" 'Caso contrário edite para vazio
    .PrintTitleColumns = "$B:$B" 'Edite a seleção para as colunas do seu caso
    .Orientation = xlLandscape
    .Zoom = False 'Deve ficar False
    .FitToPagesWide = 1
    .FitToPagesTall = 1 'Tente depois usando False
End With
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/10/2014 5:24 am
 juliowd
(@juliowd)
Posts: 149
Estimable Member
Topic starter
 

Alexandre, estou fazendo alguns testes ainda. Fiz umas adaptações e está dando certo. Mas a fonte está saindo pequena e quero testar em outras abas. Estive sem tempo nos últimos dias. Mas hoje a noite eu faço os testes finais e te dou um feedback. Te respondo mesmo sem dar uma resposta final pra valorizar seu esforço em me ajudar e pq se fosse eu, gostaria de saber a quantas anda a minha sugestão.
Até logo, Alexandre.

 
Postado : 20/10/2014 8:11 am
 juliowd
(@juliowd)
Posts: 149
Estimable Member
Topic starter
 

Oi! Enfim estou dando retorno. Fiz uma série de testes.
E funcionou perfeitamente. Fiz adaptações, e no fim ficou assim:

     
With ActiveSheet.PageSetup
    .PrintTitleRows = "" 'Caso contrário edite para vazio
    .PrintTitleColumns = "" 'Edite a seleção para as colunas do seu caso
    .Orientation = xlLandscape
    .zoom = False 'Deve ficar False
    .FitToPagesWide = False
    .FitToPagesTall = False 'Tente depois usando False
    .CenterHorizontally = True
    .CenterVertically = True
End With

Mais uma vez agradeço demais a ajuda e o empréstimo de inteligência.
Fica aqui registrada minha gratidão.
Um abraço, Alexandre.

 
Postado : 22/10/2014 8:28 am
Forum Jump:
  Tópico Anterior
Próximo Tópico