Poste sua planilha com uma breve indicação do que pretende dentro dela.

Amigo crie um botão na guia que você quer ver como PDF e jogue este código dentro dele:

Dim nome As String
                '     /aqui você pode definir o primeiro nome que vai ser salvo o PDF
                                      '             /                                             / Aqui você pode definir por exemplo um nome pegando pelo conteúdo de alguma célula           
nome = ThisWorkbook.Path & "Exemplo" & " " & ActiveSheet.Range("H4") & " - " & ActiveSheet.Range("C8") & " - " & ActiveSheet.Range("K8") & " - " & "(SERVIÇO)"
'Aqui embaixo é o código que exporta a guia pra PDF [ O PDF VAI PARA A PASTA QUE A PLANILHA ESTÁ ]
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nome

PS: é necessário definir a área de impressão [Ela vai ser pega para formular o PDF]

Espero que tenha ajudado...

Atenciosamente,

Lustosa

Ola Pessoal, desculpa pela demora, estava tentando refazer o código que havia ocorrido alguns erros, agora o código esta selecionando o Nr do Pedido e imprimindo o Pedido. Só que esta ocorrendo um pequeno problema, o Nr.Pedido tem 5 itens e esta imprimindo apenas 2 itens, esse é o fator que esta ocorrendo no momento, caso alguem possa estar orientando-me, fico grato a todos que postarem no auxilio, abraço a todos

Código que tenho aprendido fazer
Public Sub FiltraPedidox()

On Error GoTo erro

erro:

If Err.Number Then
MsgBox "Atenção código invalido...verifique!!!", vbExclamation, "ATENÇÃO"
Else

Pedidos = InputBox("Informe o Numero do Pedido ", "Pesquisar")
End If

LINHA = 2

Do Until TabVendas.Cells(LINHA, 12) = ""
If TabVendas.Cells(LINHA, 12) = Pedidos Then
MsgBox "Numero do pedidos encontrado...", TabVendas.Cells(LINHA, 12)
ImprimirPedido
Exit Sub
End If

LINHA = LINHA + 1
Loop

End Sub

Sub ImprimirPedido()
MsgBox "entrando no RELATORIO.........................."

Dim LINHA As Integer

LINHA = 7

Do Until TabVendas.Cells(LINHA, 12) = ""
If TabVendas.Cells(LINHA, 12) = Pedidos Then

'PRODUTO
Sheets("TabVendas").Cells(LINHA, 1).Copy Destination:=Sheets("RelPedido").Cells(LINHA, 1)
'DESCRICAO
Sheets("TabVendas").Cells(LINHA, 3).Copy Destination:=Sheets("RelPedido").Cells(LINHA, 2)
'QUANTIDADE
Sheets("TabVendas").Cells(LINHA, 7).Copy Destination:=Sheets("RelPedido").Cells(LINHA, 8)
'PRECO
Sheets("TabVendas").Cells(LINHA, 6).Copy Destination:=Sheets("RelPedido").Cells(LINHA, 9)
'TOTAL
Sheets("TabVendas").Cells(LINHA, 8).Copy Destination:=Sheets("RelPedido").Cells(LINHA, 10)

'Sheets("TabVendas").Range("D2").Copy Destination:=Sheets("RelPedido").Range("C7")
MsgBox "registro dos pedidos encontrados....", TabVendas.Cells(LINHA, 1)

End If
LINHA = LINHA + 1
Loop

End Sub

Obs.: Não consegui enviar as telas da tabela de TABVENDAS e RELPEDIDO
cliquei em: Adicionar um anexo, selecionei o arquivo e ENVIAR, não consegui visualizar se a imagem foi enviada.

TabVendas e relPedidos