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.

Franciele Mü...
Novo Membro
Registrado
4 Mensagens
0 Curtidas