De uma olhada nestes tópicos:
2007 e acima:
viewtopic.php?f=16&t=1046&p=15536&hilit=pdf#p15536
viewtopic.php?f=10&t=5193&hilit=pdf
viewtopic.php?f=10&t=6236&hilit=+pdf
viewtopic.php?f=10&t=6699&hilit=+pdf

Reinaldo, eu consegui atribuir uma macro para imprimir, mas esse código foi inserido em um módulo, tem como inserir um botão no meu programa e atribuir essa macro?

tentei mas não consegui.. ele apresenta um erro e me grifa de amarelo a parte que destaquei em baixo de negrito.

Private Sub CommandButton3_Click()
Dim Pasta As String, MyPath As String
Pasta = ActiveSheet.Range("P1").Value
arq = Pasta & ActiveSheet.Range("P2").Value & ActiveSheet.Range("P3").Value & ".pdf"
MyPath = "D:Teste" 'Indica em que local a pasta estará , pode ser C: ou d: ou e:....
'Verifica se o diretorio existe
If (Dir(MyPath & Pasta, vbDirectory) = "") Then
MsgBox "Diretório - " & MyPath & Pasta & " - Não encontrado"
' se não existir, cria se quiser
MkDir (MyPath & Pasta)
End If
'Verifica se o arquivo já existe, se existir, deleta
'If (Dir(Arquivo) <> "") Then
' Kill Arquivo
'End If

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
MyPath & Pasta & "" & arq, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

End Sub

Ops, eu consegui tentando aqui..

tenho uma combox que me carrega dados, só que ela só carrega os dados se eu estiver com a guia da planilha (onde estão os dados) se eu estiver em outra guia e iniciar o teste do programa ela me traz erros, tem como modificar esse código para que ela só me traga dados da plan2 por exemplo.

Private Function matriz(lista As Range) As Variant
Dim matrizSaída() As Variant
Dim Item As Variant
Dim matrizÚnica As New Collection

On Error Resume Next
For Each Item In lista
If Item.Formula <> "" Then
matrizÚnica.Add Item.Value, CStr(Item.Value)
End If
Next Item
matriz = ""
If matrizÚnica.Count > 0 Then
ReDim matrizSaída(1 To matrizÚnica.Count)
For i = 1 To matrizÚnica.Count
matrizSaída(i) = matrizÚnica(i)
Next i
matriz = matrizSaída
End If
End Function

Boa noite!!

Qual combobox???????

de um Formulário? ou ActiveX etc?

Att

Perdão, esqueci de postar a planilha

Boa noite!!

Perdoe me mas eu não entendi...

Eu não encontro a função que você indicou nas postagem em seu arquivo.

Qual coluna da guia "Plan2" você quer popularizar sua Combobox?

Att

Alexandre, boa tarde!
olhe a partir desse arquivo...

tipo.. se eu estiver com a plan1 aberta e iniciar o visual basic ele me carrega na minha combobox os arquivos da plan1, mas se eu for visualizar a minha plan2 e iniciar novamente o visual basic ele me traz as informações da plan2. E o que eu preciso é que o código esteja fixado na plan1 para que toda vez que eu iniciar o programa as informações sejam carregadas da minha plan1 que é onde estarão meus dados.

O arquivo ficou grande, vou zipar ele.

http://www.filefactory.com/file/6orcstao7bhv/n/teste_xlsm

o arquivo ficou grande, por isso hospedei ele

franca, para carregar sempre o combo com os dados de uma determinada aba sem precisar estar com ela ativa, precisamos referencia-la diretamente na rotina ou criar constantes, então no evento "UserForm_Initialize" faça referencia a aba desta forma :

Veja que utilizei o nome da Aba Sheet1 : Worksheets("Sheet1"), se renomear a aba tem de ajustar na rotina.

Private Sub UserForm_Initialize()

    linha = Worksheets("Sheet1").Range("A65536").End(xlUp).Row
    
    cbo1.List = matriz(Worksheets("Sheet1").Range("A2:A" & linha))
        
    cbo1.ListIndex = 0
    
End Sub

Espero que seja isto o que quer.

[]s