MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

4 participantes

    Configurar tamanho do papel para impressão PDF

    Eloirp
    Eloirp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 219
    Registrado : 15/06/2013

    Configurar tamanho do papel para impressão PDF Empty Configurar tamanho do papel para impressão PDF

    Mensagem  Eloirp 11/7/2017, 14:05

    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
    elpauli
    elpauli
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 10/08/2016

    Configurar tamanho do papel para impressão PDF Empty Nome de Arquivos/Relatórios etc

    Mensagem  elpauli 13/7/2017, 05:58

    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
    Eloirp
    Eloirp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 219
    Registrado : 15/06/2013

    Configurar tamanho do papel para impressão PDF Empty Re: Configurar tamanho do papel para impressão PDF

    Mensagem  Eloirp 14/7/2017, 14:06

    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,
    Eloirp
    Eloirp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 219
    Registrado : 15/06/2013

    Configurar tamanho do papel para impressão PDF Empty Definir tamanho de papel na impressão PDF via VBA

    Mensagem  Eloirp 21/3/2019, 11:46

    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


    marcelo3092
    marcelo3092
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 284
    Registrado : 19/08/2010

    Configurar tamanho do papel para impressão PDF Empty Definir tamanho de papel na impressão PDF via VBA

    Mensagem  marcelo3092 21/3/2019, 15:57

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

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3751
    Registrado : 22/11/2016

    Configurar tamanho do papel para impressão PDF Empty Re: Configurar tamanho do papel para impressão PDF

    Mensagem  DamascenoJr. 20/4/2021, 22:57

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

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

    Aguardamos...


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 8/2/2023, 01:19