Primeiro quero dizer que ajudarei nesta última questão, pois o Tov solucionou com
muita competência as questões levantadas pelo nosso amigo "CAMILOALVES" ...
Então "CAMILOALVES" você terá que criar um novo Módulo e colar este código que se segue abaixo,
dentro dele :
Código: Selecionar todos
Sub IntervaloDiretoriaPDF()
Dim prim01 As Range
Plan3.Select
ActiveCell = Range("A8").Select
Set prim01 = Union(Range("A1").Resize(7, 13), Range(ActiveCell.End(xlDown), ActiveCell.Columns(13)))
prim01.Select
End Sub
Código: Selecionar todos
Sub CONVERTER_EM_PDF()
Dim seuPdfCaminho As String
Dim seuPdfNome As String
Application.ScreenUpdating = False
seuPdfCaminho = "N:\TRANSPORTADORA SAMELO\"
seuPdfNome = "DIRETORIA.pdf"
Call IntervaloDiretoriaPDF
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
seuPdfCaminho & seuPdfNome, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Range("R2").Select
Application.ScreenUpdating = True
End Sub
(como informou na mensagem anterior), eliminando as linhas ou páginas em branco que antes
eram também convertidas ..
Espero que seja isto que queria ...
Aguardando sua resposta e seu Feed Back ... se foi útil, coloque um smille ...
LaerteB