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

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

    Compartilhe
    avatar
    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
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1043
    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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    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



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

    [Você precisa estar registrado e conectado para ver este link.]
    [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.]
    avatar
    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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    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


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

    [Você precisa estar registrado e conectado para ver este link.]
    [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.]
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    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.]



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

    [Você precisa estar registrado e conectado para ver este link.]
    [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.]
    avatar
    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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    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.]


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

    [Você precisa estar registrado e conectado para ver este link.]
    [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.]
    avatar
    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
    avatar
    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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    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.


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

    [Você precisa estar registrado e conectado para ver este link.]
    [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.]

      Data/hora atual: Ter 21 Nov 2017, 12:10