MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Configurar página por VBA...

    Compartilhe

    MPS
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 19/04/2012

    [Resolvido]Configurar página por VBA...

    Mensagem  MPS em Qua 13 Nov 2013, 14:28

    Colegas, como faço para imprimir o recibo no tamanho: Altura = 102mm e Largura 210mm, neste comando abaixo, por favaor?
    Alías é quando carrego o relatório (reltlmktrecibo) que o coloco?

    Private Sub Report_Load()

    With Reports!reltlmktrecibo.Printer

    .TopMargin = 1440
    .BottomMargin = 1440
    .LeftMargin = 1440
    .RightMargin = 1440

    .ColumnSpacing = 360
    .RowSpacing = 360

    .ColorMode = acPRCMColor
    .DataOnly = False
    .DefaultSize = True
    '.ItemSizeHeight = 2880
    '.ItemSizeWidth = 2880
    .ItemLayout = acPRVerticalColumnLayout
    .ItemsAcross = 6

    .Copies = 1
    .Orientation = acPRORLandscape
    .Duplex = acPRDPVertical
    .PaperBin = acPRBNAuto
    .PaperSize = acPRPSStatement
    .PrintQuality = acPRPQMedium

    End With
    End Sub

    Agradeço desde já!
    At
    MPS

    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 920
    Registrado : 05/02/2010

    Configurar página por VBA

    Mensagem  good guy em Qua 13 Nov 2013, 15:55

    Olá MPS,

    Tente trocando os valores dos respectivos dados informados por variáveis do tipo:

    Dim x As Integer
    Dim y As Integer

    x = InputBox("Altura: ","Pesquisa")
    y = InputBox("Largura: ","Pesquisa")


    .ItemSizeHeight = " & x
    .ItemSizeWidth = " & y

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Configurar página por VBA...

    Mensagem  JPaulo em Qua 13 Nov 2013, 16:51

    Um pitaco;

    A configuração das páginas funcional em Twip`s

    A conversão é:

    102 mm = 5782,68 twip`s

    Pode converter aqui:
    [Você precisa estar registrado e conectado para ver este link.]

    Então para as dimensões que quer será;

    .ItemSizeHeight = 5782
    .ItemSizeWidth = 11905

    Sendo que o .DefaultSize tem de estar = False



    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    MPS
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 19/04/2012

    Re: [Resolvido]Configurar página por VBA...

    Mensagem  MPS em Qua 13 Nov 2013, 17:45

    Good guy, obrigado.
    JPaulo, importante esta observação. Nem conhecia o twips. Obrigado.
    Adaptei para um modelo daqui do Fórum.
    Contudo não funcionou.
    Será que o problema está no Papersize, por favor?

    Dim VarRelatorio As String
    Dim rpt As Access.Report
    Dim prtr As Access.Printer
    Set Application.Printer = Nothing
    Set prtr = Application.Printer

    VarRelatorio = "reltlmktrecibo"

    prtr.DefaultSize = False
    prtr.ItemSizeHeight = 10.2 * 567
    prtr.ItemSizeWidth = 20 * 567
    'Define as margens da folha
    prtr.TopMargin = 3.5 * 567
    MsgBox prtr.TopMargin
    prtr.BottomMargin = 1 * 567
    prtr.LeftMargin = 1 * 567
    prtr.RightMargin = 1 * 567
    'Abrir o relatório em modo de visualização
    DoCmd.OpenReport VarRelatorio, acViewPreview, , , acWindowNormal

    Set rpt = Reports(VarRelatorio)
    DoCmd.Maximize
    Set rpt.Printer = prtr

    At
    MPS

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Configurar página por VBA...

    Mensagem  JPaulo em Qua 13 Nov 2013, 17:59

    Escolha o tipo de papel, antes de definir as margens,

    A3 = acPRPSA3
    A4 = acPRPSA4


    Pode consultar mais tipos de papel em AcPrintPaperSize

    prtr.PaperSize = acPRPSA4


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Configurar página por VBA...

    Mensagem  JPaulo em Qua 13 Nov 2013, 18:06

    Veja se ajuda o site do Avelino;

    [Você precisa estar registrado e conectado para ver este link.]



    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    MPS
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 19/04/2012

    Re: [Resolvido]Configurar página por VBA...

    Mensagem  MPS em Qua 13 Nov 2013, 18:24

    JPaulo, obrigado.
    Sinceramente acho que este Papersize é que determina a altura e largura.
    Pois coloquei o modelo acPRPSEnvDL que é um envelope e então alterou, mas não existe Papersize com estas medidas que quero.
    O ItemSizeHeight e o ItemSizeWidth realmente servem para estabelecer a altura e largura da página?
    Agradeço desde já!
    At
    MPS

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Configurar página por VBA...

    Mensagem  JPaulo em Qua 13 Nov 2013, 19:28

    Não estou muito dentro do assunto, mas penso que esta dica do Avelino vai ajudar,

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    MPS
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 19/04/2012

    Re: [Resolvido]Configurar página por VBA...

    Mensagem  MPS em Qui 14 Nov 2013, 21:26

    Mestre JPaulo, segui vossas dicas e percebi que outros colegas apresentaram o mesmo problema para o Mestre Avelino.
    Não encontrei a solução para imprimir personalizado pelo VBA então segui outro conselho dele e criei o formulário no Windows.
    Terça que vem irei no setor e testarei.
    Depois completo o relato para conclusão.
    Obrigado pelos links!
    At
    MPS

    MPS
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 19/04/2012

    Re: [Resolvido]Configurar página por VBA...

    Mensagem  MPS em Ter 19 Nov 2013, 13:18

    JPaulo, acabei de testar!
    Funcionou perfeitamente.
    Mais uma vez obrigado!
    At
    MPS

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Configurar página por VBA...

    Mensagem  JPaulo em Ter 19 Nov 2013, 13:25

    Fico feliz...
    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Sex 09 Dez 2016, 09:36