Configurar tamanho do papel para impressão PDF

Olá Amigos,

Não estou conseguindo configurar o tamanho do papel para impressão de um relatório diretamente em pdf, sem seleção manual da impressora, pois gostaria de reduzir a altura do mesmo para que possa ficar compatível com o arquivo que vai importar esta impressão.

Abaixo o código da impressão onde acredito que deveria acrescentar algum critério para definir os parâmetros:


Private Sub bt_Buscar_Click()

   On Error GoTo trataerro
   
   DoCmd.Hourglass True 'Habilita a Ampulheta
   
   DoCmd.OpenForm "sys_ProcessandoBt"
   Dim strNomeRel As String, strCaminhoCompleto As String
   strNomeRel = "RCP_100_v1_ CatalogoProdutos"

   
   strCaminhoCompleto = "" & strRelPath2 & "\RCP-100 - Catálogo de Produtos para Venda " & Format(Now(), "ddhhmmss") & ".pdf"
   Call Load_CatalogoData
   DoCmd.OutputTo acOutputReport, strNomeRel, acFormatPDF, strCaminhoCompleto
   Application.FollowHyperlink strCaminhoCompleto

   
   DoCmd.Hourglass False 'Desabilita a Ampulheta
sair:
   Exit Sub
trataerro:
   If Err.Number = 2493 Then
       MsgBox "     Houve um erro no processo, reinicie o iniciar novamente por favor!     ", vbOKOnly, "SieWeb"
   ElseIf Err.Number = 3010 Then
       MsgBox "     Tabelas temporárias não foram deletadas pelo sistema, informe o administrador!     ", vbOKOnly, "SieWeb"
   Else
     MsgBox Err.Description & " Número: " & Err.Number
   End If
   Resume sair:
   
End Sub

O Windows e alguns programas podem apresentar erros ao tentar abrir ou imprimir arquivos tipo o seu:
"RCP-100 - Catálogo de Produtos para Venda"

Mude para algo mais condizente e NÃO inclua espaços:
==> RCP_100_001"

Por Padrão, mesmo que seja possível, nunca utilize nomes com Espaço, Caracteres exclusivos da Língua e Palavras Reservadas....

RELATÓRIO DE VENDAS TRIMESTRAIS ==> rptVENDAS_TRIMESTRE
FORMULÁRIO DE  CADASTRO DE CLIENTES ==> frmCLIENTES ou F_CLIENTES
FORMULÁRIO DE VENDAS/PEDIDO/OS ==> frmVENDAS ou F_VENDAS
SUB FORMULARIO DE VENDAS ==> F_VENDAS_ITENS ou frmVENDAS_ITENS
CONSULTA RELATÓRIO DE VENDAS DO MÊS ==> qrVENDAS_MES

Campos em Tabelas:

CÓDIGO DO CLIENTE ==> ID_CLIENTE
NOME DO CLIENTE ==> CLI_NOME

Nomenclatura de Consultas

qrXX - Relatórios
qfXX - Formulários
qlXX = Listas
qiXX = Inclusão
qaXX = Atualização
....
Isto faz parte do  Manual de Boas Práticas.

Abraços

Olá elpauli,

Sim, eu uso desta forma como pode ver:
strNomeRel = "RCP_100_v1_ CatalogoProdutos"

Apenas salvei o arquivo gerado com este nome:
strCaminhoCompleto = "" & strRelPath2 & "\RCP-100 - Catálogo de Produtos para Venda " & Format(Now(), "ddhhmmss") & ".pdf"

Mas de qualquer forma agradeço a dica!

Quanto ao problema você não comentou nada, teria alguma contribuição?

Abraços,

Estou precisando definir o tamanho de papel na geração de PDF e gostaria se ajuda para fazer isso via VBA, teria como?

Utilizo esse código para geração do PDF:
DoCmd.OutputTo acOutputReport, strNomeRel, acFormatPDF, strCaminhoCompleto
Application.FollowHyperlink strCaminhoCompleto

Ola amigo da uma olhada nesse artigo veja se te ajuda.

usandoaccess.com.br/tutoriais/openreport_alteracoes-margens-papel-e-impressora.asp

Tópicos fundidos. Mesmo autor, mesma dúvida.

Eloirp, algum avanço aqui? Conferiu a dica do colega Marcelo?

Aguardamos...