Logo Hardware.com.br
Franciele Müller
Franciele Mü... Novo Membro Registrado
4 Mensagens 0 Curtidas

VBA, converter intervalos específicos de um Excel em PDF sem quebra de página.

#1 Por Franciele Mü... 14/05/2019 - 12:26
Olá!

Estou tentando implementar um código de VBA que utilize como critérios os intervalos abaixo, e, a partir disso, gere o PDF sem que cada intervalo fique em uma pagina separada do PDF.

.Range(Cells(1, 1), Cells(12, 7)) 'Intervalo A1:G12
.Range(Cells(71, 1), Cells(83, 7)) 'Intervalo A71:G83

Contudo, até agora não consegui entender por que, ao gerar o PDF, o intervalo (Cells(1, 1), Cells(12, 7)) fica em uma página e o intervalo (Cells(71, 1), Cells(83, 7) em outra pagina separada. Oque preciso é que, os intervalos fiquem um seguido do outro, na mesma página.

Segue código implementado, sendo que fatura e COTAÇÃO referenciam-se a mesma aba da minha planilha.

Sub GerarPDF()

If Fatura.Cells(26, 2).Value = 0 Then
Worksheets("COTAÇÃO").Range("A1:G25").Select
Set pg1 = Sheets("COTAÇÃO").Range(Cells(1, 1), Cells(12, 7))
Set pg2 = Sheets("COTAÇÃO").Range(Cells(71, 1), Cells(83, 7))
Set PrintRange = Union(pg1, pg2)

PrintRange.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveWorkbook.Path & "\Fornecedores e produtos.pdf", Quality:=xlQualityStandard, IgnorePrintAreas:=False, OpenAfterPublish:=True, IncludeDocProperties:=True
Application.PrintCommunication = True
End If

End Sub

Obrigada.
Marcelo G Prudencio
Marcelo G Pr... Geek Registrado
1K Mensagens 227 Curtidas
#2 Por Marcelo G Pr...
18/05/2019 - 12:50
O PDF é tratado como uma impressão.

Se vc quer que saia em uma unica pagina configure a pagina para uma unica folha.

Se vc simplesmente imprimir a planilha e comparar com o PDF vai observar que sao exatamente iguais.
Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho." - Autor Desconhecido
Simplifica que simples fica. - Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado" - Jorge Paulo Lemann.
Marcelo G Prudencio
Marcelo G Pr... Geek Registrado
1K Mensagens 227 Curtidas
#4 Por Marcelo G Pr...
25/05/2019 - 12:21
Isso vc configura manualmente.

Se nao conseguir disponibilize seu arquivo para que possa ver o resultado esperado.

Explique no arquivo o que deseja que saia na impressão.
Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho." - Autor Desconhecido
Simplifica que simples fica. - Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado" - Jorge Paulo Lemann.
© 1999-2024 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal