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

    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 : 213
    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 : 213
    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 : 213
    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 : 248
    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 : 2816
    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: 14/6/2021, 07:27