TRONNER
Cyber Highlander
Registrado
32.2K Mensagens
7.3K Curtidas
O arquivo pdf gerado é direto do Excel ou utiliza as famosas "impressoras pdf" do tipo cutepdf, pdf creator .... etc ?!
EdsonBR
Veterano
Registrado
274 Mensagens
280 Curtidas
Como está aparecendo no Preview do Visualizador de Impressão no Excel?
- Para sua Pasta de Trabalho, verifique como está definida a escala de impressão (não é o Nível de Zoom): deve estar em 100% se quiser maior fidelidade wysiwyg (guia "Layout da Página", grupo "Dimensionar para Ajustar).
- Talvez pra isso vc tenha também que adequar ali (ou na guia "Exibir" >" Visualização de Quebra de Página") a Área de Impressão. Geralmente quando esse problema acontece é que a Área de Impressão está incluindo colunas em branco desnecessárias.
- Verifique ainda se o Reduzir pra Caber em Largura/Altura está com alguma definição que não seja em branco ou "Automática".
- Outro fator que pode ser necessário ajustar (preferivelmente antes limpando tudo) é o posicionamento das quebras de página.
- Como o colega @TRONNER falou, também pode ser a "Impressora" pdf usada, especialmente se vc está usando fontes de caracteres especiais que não tenha uma substituta com aparência suficientemente próxima. Em todo caso, evite Imprimir o arquivo como pdf e dê preferência a Exportar como pdf, recurso disponível já a partir do Excel 2013 em diante (guia Arquivo > Exportar > Criar Documento PDF/XPS).
- Se vc usa uma fonte cuja instalação é proprietária de algum software específico, talvez seja necessário substituí-la por uma fonte de uso geral de aparência mais próxima.
Playboy
Geek
Registrado
3.4K Mensagens
46 Curtidas
Bom dia. Está aparecendo normal. utilizo uma macro para gerar o PDF. a linhass
Range("A1:M81").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ActiveWorkbook.Path & "\" & "Orçamento - " & Range("Tela_Orc_Responsavel") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=True, OpenAfterPublish:=False
caminho = ActiveWorkbook.Path & "\" & "Orçamento - " & sht_Tela_Orçamentos.Range("Tela_Orc_Responsavel") & ".pdf"
sht_Tela_Orçamentos.Txt_Caminho = caminho
Playboy

TRONNER
Cyber Highlander
Registrado
32.2K Mensagens
7.3K Curtidas
Para efeito comparativo, se você gerar o .pdf dessas outras formas, o problema permanece ?!
Playboy
Geek
Registrado
3.4K Mensagens
46 Curtidas
Boa tarde. Mesmo com ese código, o problema permanece.
Playboy
