Salvar em pdf com valor de células

[Antonio Lanis]

Uso uma macro para impressão como esta abaixo, mas gostaria que ela funcionasse de forma a melhor atender minha necessidade. Pra ser ideal, ela precisaria ser salva em PDF, e uma pasta específica; por ex: D:/Contratos e como nome do arquivo fosse a macro utilizasse o conteúdo de 3 células (G6, Q4 e AJ4). Alguém tem uma solução?

 

Abaixo está a macro que utilizo:

 

Sub Print_Contrato()

'

' Imprime o Contrato 

'

If Range("q4") = "" Or Range("ad4") = "" Then

    MsgBox "Atenção! Preencha os campos DATA  e HORÁRIO. São campos obrigatórios!", vbCritical, ".: Campos em branco"

    Range("d8").Select

    Exit Sub

Else

    Range("A1:AI54").Select

    Selection.PrintOut From:=1, To:=1, Copies:=2

    

    Range("AD3").Select 'Seleciona célula

    Selection.Copy

    Range("AJ4").Select

    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

        False, Transpose:=False

End If

End Sub

[Wendell Menezes]

1. Altere C:\Users\Wendell\Desktop\ para o caminho que desejar.

2. Note que existem caracteres que não podem ser usados no nome de arquivos (":","/"), então certifique-se de que as células contendo data e horam estejam em um formato sem esses caracteres.

Sub Print_Contrato()    If Range("Q4") = "" Or Range("AD4") = "" Then        MsgBox "Atenção! Preencha os campos DATA e HORÁRIO. São campos obrigatórios!", vbCritical, ".: Campos em branco"        Range("D8").Select        Exit Sub            Else        Range("A1:AI54").ExportAsFixedFormat xlTypePDF, "C:\Users\Wendell\Desktop\" & Range("G6") & " " & Range("Q4") & " " & Range("AJ4") & ".pdf", , , , , , False        Range("AD3").Copy        Range("AJ4").PasteSpecial xlValues    End IfEnd Sub

[Antonio Lanis]

Testei mas não foi o que eu esperava. Consegui resolver adaptando uma rotina que achei na net. Muito grato pela dica assim mesmo.