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

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

    MPS
    MPS
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  MPS 13/11/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
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  good guy 13/11/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
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 13/11/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:
    http://www.translatorscafe.com/cafe/EN/units-converter/typography/1-3/

    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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Configurar página por VBA... Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Configurar página por VBA... Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Configurar página por VBA... Folder_announce_new Instruções SQL como utilizar...
    MPS
    MPS
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  MPS 13/11/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
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 13/11/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Configurar página por VBA... Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Configurar página por VBA... Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Configurar página por VBA... 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 : 11016
    Registrado : 04/11/2009

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

    Mensagem  JPaulo 13/11/2013, 18:06

    Veja se ajuda o site do Avelino;

    http://www.usandoaccess.com.br/tutoriais/tuto47.asp



    .................................................................................
    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

    [Resolvido]Configurar página por VBA... Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Configurar página por VBA... Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Configurar página por VBA... Folder_announce_new Instruções SQL como utilizar...
    MPS
    MPS
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  MPS 13/11/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
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 13/11/2013, 19:28

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

    http://comunidade.itlab.com.br/eve/forums/a/tpc/f/273606921/m/1507025173


    .................................................................................
    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

    [Resolvido]Configurar página por VBA... Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Configurar página por VBA... Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Configurar página por VBA... Folder_announce_new Instruções SQL como utilizar...
    MPS
    MPS
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  MPS 14/11/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
    MPS
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  MPS 19/11/2013, 13:18

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 19/11/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Configurar página por VBA... Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Configurar página por VBA... Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Configurar página por VBA... Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 11:59