Notifications
Clear all

Definido area de impressão em apenas uma pagina

3 Posts
3 Usuários
0 Reactions
886 Visualizações
(@alalbino)
Posts: 0
New Member
Topic starter
 

Boa tarde galera,
Peço desculpas se criei o topico no local errado, esta é a primeira vez que o faço, e tbm nao encontrei nenhum outro topico que pudesse me ajudar.

Tenho uma planilha para "Ordens de Produção" e nela existem botoes para salvar o arquivo em .pdf, porem por ser grande acaba criando duas paginas.
Gostaria de saber se tem algum comando que imite a opção de impressão "Ajustar planilha em uma pagina" para que o arquivo .pdf fique apenas com uma pagina.

Abaixo esta uma parte do comando que utilzo hoje para fazer esta impressão.

With ActiveSheet.PageSetup
.PaperSize = xlPaperA4
.CenterHorizontally = True
.CenterVertically = True
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

destino = "F:PEDIDO CLIENTE"
Range("f11:n46").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=destino & Range("N6").Value & "-" & Range("M7").Value & "-" & Range("g7").Value & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

obs: minha planilha possui cabeçalho.

 
Postado : 04/09/2015 2:13 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!

Já tentou a nossa base de dados?
viewtopic.php?f=10&t=8173

ActiveSheet.PageSetup.PrintArea = "SeuIntervalo"

http://cse.google.com.br/cse?cx=partner ... gsc.page=1

Att

 
Postado : 04/09/2015 2:46 pm
(@mprudencio)
Posts: 0
New Member
 

Em configurar pagina vc consegue resolver isso facilmente basta colocar para que ela utilize 1 pagina na largura assim automaticamente sera ajustada a planilha

Layout de Pagina LARGURA 1 PAGINA

Assunto resolvido.

 
Postado : 04/09/2015 3:47 pm