Ja tentou formatar a área de impressão na horizontal?

Exatamente o que o colega sugeriu é so configurar a pagina como deseja que saia o arquivo.

.
Gostei disso!!
Mas colei o código no módulo de um arquivo teste e não funcionou (deu erro / depurar / e o código ficou todo amarelo)!! ... Renomeei a Aba para DADOS_ACT, e nada também!!!
.

.
carlos, já que não houve solução com VBA, fica uma dica (que eu faço no trabalho) ...
.
Configura a página para horizontal > printa a tela > cola no Paint ... recorta ao seu gosto, abra novo arquivo do Paint, cola de novo, e salva como .png (que já é o padrão do Paint)!!! ... Pronto!!
.

Copa para funcionar vc precisa fazer o seguinte:

ShtDADOS_ACT.Range("$C$11:$M$38").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ActiveWorkbook.Path & "RECEBIMENTO" & ShtDADOS_ACT.Range("C11") & ".PDF"

End Sub

Abrir um novo arquivo inicialmente Salvar o arquivo dentro de uma pasta e dentro desta pasta colocar uma nova pasta RECEBIMENTO.

E no seu arquivo salvo troque

ShtDADOS_ACT

Por Plan1 ou Planilha1 Isso depende da versao do seu office ate o 2010 Plan1

Digite Dados entre C11 e M38

Sendo que em C11 sera o nome do seu arquivo

Como esta acima ira funcionar.

Ele sumiu mas bastava formatar a impressao em modo paisagem que funciona.

.
Marcelo, fiz aqui, mas tá mandando depurar (??)
.

Copa duas coisas:

RECEBIMENTO é uma pasta do Windows que vc deve criar onde estiver o arquivo (NAO PRECISA DE SALVAR O ARQUIVO NA PASTA RECEBIMENTO).

E no final vc usou PDF.range era plan1.range

Segue o codigo Corrigido

Public Sub GerarRECEBIMENTO()

Plan1.Range("$C$4:$M$31").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ActiveWorkbook.Path & "RECEBIMENTO" & Plan1.Range("C4") & ".PDF"

End Sub

.
Criei uma pasta "RECEBIMENTO" no Windows, mas, ao clicar no botão "gerar PDF" neste arquivo exemplo, continua mandando DEPURAR!! ... GHRRRR!!
.
Esse recurso (se é o que estou pensando: gera um PDF na planilha inteira) seria bem interessante para meu caso!! ... Tenho um arquivo com 2 Abas (A1:V6000 cada uma) para conferir folha de pagamento, e poderia salvar um PDF todo mês de cada Aba!! ... Hoje eu simplesmente perco o histórico já que, para conferir o mês seguinte, apago o mês anterior!!
.

Copa a pasta recebimento é para criar no mesmo local onde o arquivo do codigo esta salvo.

Se vc estiver com o arquivo na area de trabalho crie a pasta recebimento na area de trabalho.

Qto a sua necessidade ajustei o codigo para que vc possa usa-lo

Coloquei comentarios para eventuais ajustes que vc precise fazer

Lembrando vc precisa configurar impressão no formato que deseja que o pdf seja criado.

Ve se ajuda

-------------------------------------------------------------------------------------
Edit - Me esqueci de colocar um botao para executar o codigo.

Abra o editor vba ou coloque um botao na planilha.

.
MPrudencio, perfeito!! .. Agora funcionou!! ... Valeu!! ... (gostei do Código passo a passo para leigos como eu kk)
.
Mas a tal pasta "RECEBIMENTO" não serviu para nada (k), o arquivo PDF gerado foi salvo na própria área de trabalho!!
.

Eu eliminei a pasta recebimento só comentei a respeito do outro codigo onde a pasta deveria estar.

.
Carlos, desculpe estar invadindo seu tópico ... mas como gostei da ideia, e você não voltou mais, estou aproveitando!!
.
Marcelo (ou alguém que entende do assunto) ... o último arquivo que vc postou funcionou perfeitamente!! ... Só uma curiosidade: ele tem 370kb, já o PDF gerado, ficou com 9.7MB (???)!! ... Eu jurava que PDF era levíssimo, agora fiquei chocado!!
.

Copa altere a linha abaixo no codigo

WPonto.Range("A1:V" & LR).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Caminho & Arquivo, Quality:=xlQualityMinimum

Acima da msgbox.

O arquivo vai ficar com 472 kb.

E para ser honesto, nao tenho a menor ideia de pq o arquivo ter ficado tao grande.

.
Cara, show!! ... O que umas simples palavrinhas a mais no código não faz, né??!! k ... "Quality:=xlQualityMinimum", e detalhe, não perdeu nenhuma qualidade!!
.