MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Configurar tamanho do papel para impressão PDF

    Compartilhe
    avatar
    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Configurar tamanho do papel para impressão PDF

    Mensagem  Eloirp em Ter 11 Jul 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
    avatar
    elpauli
    Novato
    Novato

    Respeito às Regras 100%

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

    Nome de Arquivos/Relatórios etc

    Mensagem  elpauli em Qui 13 Jul 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
    avatar
    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: Configurar tamanho do papel para impressão PDF

    Mensagem  Eloirp em Sex 14 Jul 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,

      Data/hora atual: Sab 18 Nov 2017, 19:24