(RESOLVIDO) MACRO PARA GERAR PDF
Enviado: 15 Jul 2022 às 16:56
Oi pessoal boa tarde
Estou fazendo um projeto a qual estou criando um botão para gerar um pdf a partir de uma seleção de células, porém se a quantidade for muita, quando faz o pdf ele fica apenas em uma pagina deixando muito pequeno os dados no pdf, gostaria de saber se tem alguma forma de especificar ou automatizar a quantidade de folhas em pdf quando for muitos dados.
Desde já agradeço e esse é o código que estou usando
Sub CRIAR_PDF_DOS_DADOS()
Range("F6:O6").Select
Selection.CurrentRegion.Select
caminho = Application.GetSaveAsFilename("", _
"PDF *.PDF,*.PDF,Tudo *.*,*.*", 1, "Escolha o local e nome para salvar o PDF.")
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=caminho, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
From:=1, To:=3, OpenAfterPublish:=False
End Sub
PS: se houver uma forma de criar um arquivo em branco e jogar as informações selecionadas e salvar clicando em uma macro, acho que seria até melhor já que terei que transferir os dados para excel novamente.
Estou fazendo um projeto a qual estou criando um botão para gerar um pdf a partir de uma seleção de células, porém se a quantidade for muita, quando faz o pdf ele fica apenas em uma pagina deixando muito pequeno os dados no pdf, gostaria de saber se tem alguma forma de especificar ou automatizar a quantidade de folhas em pdf quando for muitos dados.
Desde já agradeço e esse é o código que estou usando
Sub CRIAR_PDF_DOS_DADOS()
Range("F6:O6").Select
Selection.CurrentRegion.Select
caminho = Application.GetSaveAsFilename("", _
"PDF *.PDF,*.PDF,Tudo *.*,*.*", 1, "Escolha o local e nome para salvar o PDF.")
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=caminho, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
From:=1, To:=3, OpenAfterPublish:=False
End Sub
PS: se houver uma forma de criar um arquivo em branco e jogar as informações selecionadas e salvar clicando em uma macro, acho que seria até melhor já que terei que transferir os dados para excel novamente.