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

3 participantes

    Configurar tamanho da página do Relatório com o tamanho que quiser

    fieldNome
    fieldNome
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 113
    Registrado : 15/04/2012

    Configurar tamanho da página do Relatório com o tamanho que quiser Empty Configurar tamanho da página do Relatório com o tamanho que quiser

    Mensagem  fieldNome Qua Ago 08, 2012 6:43 pm

    Olá a todos.

    Meu problema é configurar o tamanho da página do relatório para o que eu quiser, sem ser os padrões oferecidos.

    No meu caso, quero criar um crachá com largura 7 cm e altura de 9 cm.

    Como configuro?

    obrigado
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10765
    Registrado : 04/11/2009

    Configurar tamanho da página do Relatório com o tamanho que quiser Empty Re: Configurar tamanho da página do Relatório com o tamanho que quiser

    Mensagem  JPaulo Qui Ago 09, 2012 4:37 am

    Não sei se é isto que pretende, mas vamos lá:

    Cole este código num modulo novo e salve;

    Option Explicit

    Type zwtDevModeStr
    RGB As String * 94
    End Type

    Type zwtDeviceMode
    dmDeviceName As String * 16
    dmSpecVersion As Integer

    dmDriverVersion As Integer
    dmSize As Integer
    dmDriverExtra As Integer
    dmFields As Long
    dmOrientation As Integer
    dmPaperSize As Integer
    dmPaperlength As Integer
    dmPaperWidth As Integer
    dmScale As Integer
    dmCopies As Integer
    dmDefaultSource As Integer
    dmPrintQuality As Integer
    dmColor As Integer
    dmDuplex As Integer
    dmResolution As Integer
    dmTTOption As Integer

    dmCollate As Integer
    dmFormName As String * 16
    dmPad As Long
    dmBits As Long
    dmPW As Long
    dmDFI As Long
    dmDRr As Long
    End Type

    Public Sub AlteraConfiguracaoRelatorio(rptName As String)
    Dim DevString As zwtDevModeStr
    Dim DM As zwtDeviceMode
    Const DM_PAPERSIZE = &H2
    Const DM_PAPERLENGTH = &H4
    Const DM_PAPERWIDTH = &H8
    Dim DevModeExtra As String
    Dim rpt As Report
    Dim response
    Dim msg As String

    'Abra o relatório em modo Design e oculto.

    DoCmd.OpenReport rptName, A_DESIGN, , , acHidden
    Set rpt = Reports(rptName)
    If Not IsNull(rpt.PrtDevMode) Then
    'Copia a propriedade PrtDevMode para uma string.
    DevModeExtra = rpt.PrtDevMode
    DevString.RGB = DevModeExtra
    LSet DM = DevString
    'Verifica o tamanho da página personalizada.
    If DM.dmPaperSize = 256 Then
    'Apresenta o tamanho da página personalizada.
    msg = "O tamanho da página personalizada do " & rptName & " é de : " & DM.dmPaperWidth / 254

    msg = msg & " largura " & DM.dmPaperlength / 254
    msg = msg & " comprimento. Alterar o tamanho?"
    response = MsgBox(msg, 4)
    Else
    msg = "Este relatório não tem uma página personalizada."
    msg = msg & " Você pretende definir ?"
    response = MsgBox(msg, 4)
    End If
    If response = 6 Then
    'Se o usuário escolher Sim, muda o tamanho.
    'Inicializa.
    DM.dmFields = DM.dmFields Or DM_PAPERSIZE Or _
    DM_PAPERLENGTH Or DM_PAPERWIDTH
    'Define o tamanho da página.
    DM.dmPaperSize = 256
    msg = "Por favor, indique comprimento da página."
    DM.dmPaperlength = InputBox(msg) * 254
    msg = "Por favor, indique largura da página."
    DM.dmPaperWidth = InputBox(msg) * 254
    'Atualizar os primeiros 68 bytes da propriedade PrtDevMode.
    LSet DevString = DM
    Mid$(DevModeExtra, 1, 68) = DevString.RGB
    rpt.PrtDevMode = DevModeExtra
    End If
    End If
    End Sub

    Para chamar, no evento vba ao pressionar de um botão no seu formulario (por exemplo):


    Private Sub SeuBotão_Click()
    Call AlteraConfiguracaoRelatorio("SeuRelatório")
    End Sub



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Configurar tamanho da página do Relatório com o tamanho que quiser Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Configurar tamanho da página do Relatório com o tamanho que quiser Folder_announce_new 102 Códigos VBA Gratuitos...
    Configurar tamanho da página do Relatório com o tamanho que quiser Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10765
    Registrado : 04/11/2009

    Configurar tamanho da página do Relatório com o tamanho que quiser Empty Re: Configurar tamanho da página do Relatório com o tamanho que quiser

    Mensagem  JPaulo Sex Ago 10, 2012 3:56 am

    Resolveu ?


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Configurar tamanho da página do Relatório com o tamanho que quiser Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Configurar tamanho da página do Relatório com o tamanho que quiser Folder_announce_new 102 Códigos VBA Gratuitos...
    Configurar tamanho da página do Relatório com o tamanho que quiser Folder_announce_new Instruções SQL como utilizar...
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3781
    Registrado : 04/04/2010

    Configurar tamanho da página do Relatório com o tamanho que quiser Empty Re: Configurar tamanho da página do Relatório com o tamanho que quiser

    Mensagem  Avelino Sampaio Sex Ago 10, 2012 7:36 am

    Olá amigos

    Paulo, dependendo da impressora talvez ele não consiga trabalhar com o dmPaperSize = 256

    Minha sugestão, caso não consiga com a código sugerido, é trabalahar com o assistente de etiquetas.

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10765
    Registrado : 04/11/2009

    Configurar tamanho da página do Relatório com o tamanho que quiser Empty Re: Configurar tamanho da página do Relatório com o tamanho que quiser

    Mensagem  JPaulo Sex Ago 10, 2012 7:47 am

    Ola Avelino, promenor bastante importante, aguardamos pelo retorno.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Configurar tamanho da página do Relatório com o tamanho que quiser Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Configurar tamanho da página do Relatório com o tamanho que quiser Folder_announce_new 102 Códigos VBA Gratuitos...
    Configurar tamanho da página do Relatório com o tamanho que quiser Folder_announce_new Instruções SQL como utilizar...
    fieldNome
    fieldNome
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 113
    Registrado : 15/04/2012

    Configurar tamanho da página do Relatório com o tamanho que quiser Empty Re: Configurar tamanho da página do Relatório com o tamanho que quiser

    Mensagem  fieldNome Ter Set 11, 2012 10:05 pm

    Queria pedir desculpas ao Avelino e ao JPaulo, fiquei sem entrar no fórum por um tempo e não tinha visto que tinham respondido.

    Mil desculpas, prometo não fazer mais isso.

    Obrigado.

      Data/hora atual: Ter Set 27, 2022 1:41 pm