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


5 participantes

    [Resolvido]Tamanho fixo da Pagina em Relatório

    avatar
    ton0612
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    Registrado : 30/03/2011

    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Tamanho fixo da Pagina em Relatório

    Mensagem  ton0612 15/7/2011, 19:23

    Boa tarde Pessoal...

    Mais uma vez preciso da ajuda de vocês... eu tenho um relatório e preciso que fique configurado um tamanho de pagina padrao, mas quando mudo de impressora ele configura para o padrão da impressora.

    por exemplo, eu configurei para ele ele imprimisse em "envelope N10" e testo... mas se mudo de impressora, volta para o A4, A3, carta, ou o tamanho do papel padrao da impressora.

    O que posso fazer?

    desde ja muito obrigado
    Ton
    avatar
    Convidado
    Convidado


    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  Convidado 15/7/2011, 19:28


    Option Compare Database
    Private Sub Report_Activate()
    Dim rpt As Access.Report
    Dim prtr As Access.Printer
    Set Application.Printer = Nothing
    Set prtr = Application.Printer
    'Escolhe a orientação do papel
    'onde:
    'Retrato: acPRORPortrait
    'Paisagem: acPRORLandscape
    Dim orientacaodopapel

    orientacaodopapel = acPRORPortrait
    prtr.Orientation = orientacaodopapel
    'Escolhe o tipo de papel
    'onde
    'A3: acPRPSA3
    'A4: acPRPSA4
    'Oficio: acPRPSLegal
    'Consulte demais tipos de papel em AcPrintPaperSize
    Dim tipodepapel
    tipodepapel = acPRPSA4
    prtr.PaperSize = tipodepapel

    'Definir as margens da folha
    Dim margemsuperior
    Dim margeminferior
    Dim margemesquerda
    Dim margemdireita
    margemsuperior = 15
    margeminferior = 15
    margemesquerda = 15
    margemdireita = 15
    prtr.TopMargin = margemsuperior
    prtr.BottomMargin = margeminferior
    prtr.LeftMargin = margemesquerda
    prtr.RightMargin = margemdireita
    'Abrir o relatório em modo de visualização
    DoCmd.OpenReport , "POR_OBRA", acPreview
    Set rpt = Reports("POR_OBRA")
    Set rpt.Printer = prtr
    End Sub

    avatar
    ton0612
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    Registrado : 30/03/2011

    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  ton0612 15/7/2011, 20:08

    Boa tarde Harysohn... Muito obrigado pelo retorno.

    Estou lendo o código enviado... e tentando entender para adaptar ao que preciso, mas tenho algumas dúvidas:

    a lista com outros papeis onde eu consigo?
    porque não sei onde localizar o "AcPrintPaperSize"
    a outra é:
    eu posso definir um tamanho Personalizado como por exemplo 210mm x 97mm ou 97mm x 210 mm (paisagem e retrato)
    avatar
    Convidado
    Convidado


    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  Convidado 15/7/2011, 20:14

    Amigão.. quando o código ja estiver no módulo do relatorio...

    Marque a exressão: AcPrintPaperSize

    e clique F-1

    Aparecerá todas as opções disponíveis.





    acPRPS10x14 16 254 mm x 355 mm
    acPRPS11x17 17 279 mm x 432 mm
    acPRPSA3 8 A3 (297 mm x 420 mm)
    acPRPSA4 9 A4 (210 mm x 297 mm)
    acPRPSA4Small 10 A4 Pequeno (210 mm x 297 mm)
    acPRPSA5 11 A5 (148 mm x 210 mm)
    acPRPSB4 12 B4 (250 mm x 354 mm)
    acPRPSB5 13 B5 (148 mm x 210 mm)
    acPRPSCSheet 24 Folha tamanho C
    acPRPSDSheet 25 Folha tamanho D
    acPRPSEnv10 20 Envelope nº 10 (105 mm x 241 mm)
    acPRPSEnv11 21 Envelope nº 11 (114 mm x 264 mm)
    acPRPSEnv12 22 Envelope nº 12 (114 mm x 279 mm)
    acPRPSEnv14 23 Envelope nº 14 (127 mm x 292 mm)
    acPRPSEnv9 19 Envelope nº 9 (98 mm x 225 mm)
    acPRPSEnvB4 33 Envelope B4 (250 mm x 353 mm)
    acPRPSEnvB5 34 Envelope B5 (176 mm x 250 mm)
    acPRPSEnvB6 35 Envelope B6 (176 mm x 125 mm)
    acPRPSEnvC3 29 Envelope C3 (324 mm x 458 mm)
    acPRPSEnvC4 30 Envelope C4 (229 mm x 324 mm)
    acPRPSEnvC5 28 Envelope C5 (162 mm x 229 mm)
    acPRPSEnvC6 31 Envelope C6 (114 mm x 162 mm)
    acPRPSEnvC65 32 Envelope C65 (114 mm x 229 mm)
    acPRPSEnvDL 27 Envelope DL (110 mm x 220 mm)
    acPRPSEnvItaly 36 Envelope italiano (110 mm x 230 mm)
    acPRPSEnvMonarch 37 Envelope Monarch (98 mm x 190 mm)
    acPRPSEnvPersonal 38 Envelope (48 mm x 165 mm)
    acPRPSESheet 26 Folha tamanho E
    acPRPSExecutive 7 Executivo (190 mm x 267 mm)
    acPRPSFanfoldLglGerman 41 Formulário Contínuo Ofício Alemão (216 mm x 330 mm)
    acPRPSFanfoldStdGerman 40 Formulário Contínuo Padrão Alemão (216 mm x 305 mm)
    acPRPSFanfoldUS 39 Formulário Contínuo Padrão dos EUA (378 mm x 279 mm)
    acPRPSFolio 14 Fólio (216 mm x 330 mm)
    acPRPSLedger 4 Ledger (431 mm x 279 mm)
    acPRPSLegal 5 Ofício (216 mm x 356 mm)
    acPRPSLetter 1 Carta (216 mm x 279 mm)
    acPRPSLetterSmall 2 Carta Pequena (216 mm x 279 mm)
    acPRPSNote 18 Nota (216 mm x 279 mm)
    acPRPSQuarto 15 Quarto (215 mm x 275 mm)
    acPRPSStatement 6 Statement (140 mm x 216 mm)
    acPRPSTabloid 3 Tablóide (279 mm x 432 mm)
    acPRPSUser 256 Definido pelo usuário
    avatar
    ton0612
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    Registrado : 30/03/2011

    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  ton0612 15/7/2011, 20:15

    Mais uma duvida
    ele ta dando erro nesta linha:
    DoCmd.OpenReport , "rlt Relatório Produção Grafico Total", acPreview

    diz que o argumento não é opcional.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  vieirasoft 15/7/2011, 20:25

    Substitua acPreview, por acViewPreview
    avatar
    ton0612
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    Registrado : 30/03/2011

    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  ton0612 15/7/2011, 20:31

    Obrigado Vieira...

    Mudei e continuou o mesmo problema... sera que ele da este erro dizendo que nao é opcional, porque ja estou abrindo ele clicando duas vezes em cima do relatorio. (estou usando o access 2003).

    e como vi que ele estava dando erro na linha eu isolei ela colocando um' na frente dela....

    e dai o erro foi na linha
    Set rpt.Printer = prtr

    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  vieirasoft 15/7/2011, 20:33

    Realmente pode estar aí o erro, não sei. Por vezes, mudando a instrução final fica a funcionar bem.
    avatar
    Convidado
    Convidado


    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  Convidado 15/7/2011, 20:35

    DoCmd.OpenReport , "rlt Relatório Produção Grafico Total", acPreview


    Tente retirar a vírgula
    avatar
    ton0612
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    Registrado : 30/03/2011

    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  ton0612 15/7/2011, 20:37

    Vieira e Harysohn obrigado mais uma vez

    achei o pq ele da o erro que o argumento nao é opcional,tinha uma virgula sobrando.

    errado
    DoCmd.OpenReport, "rlt Relatório Produção Grafico Total", acViewPreview, , , acWindowNormal
    certo
    DoCmd.OpenReport "rlt Relatório Produção Grafico Total", acViewPreview, , , acWindowNormal

    mas ele continua dando erro na ultima linha e diz que nao é possivel alterar as propriedades da impresso no evento ao abrir relatorio.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  vieirasoft 15/7/2011, 20:39

    Ele tem a vírgula colocada Hary.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  vieirasoft 15/7/2011, 20:44

    DoCmd.OpenForm "rlt Relatório Produção Grafico Total", acPreview

    Uma das coisas que está mal é o nome do Relatório espaçado
    avatar
    Convidado
    Convidado


    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  Convidado 15/7/2011, 20:46

    Vierão... não havia utilizado este código ainda...

    Um dia o JWano me perguntou sobre isso, busquei na net e encontrei isto...

    Ele o estava adaptando.. não sei o que deu, pois não falei mais com ele...
    Se puderes lhe enviar uma mensagem, poderia perguntar como resolveu.
    Ele ficou de me retornar, mas ate agora não o fez..

    Saudações
    avatar
    Convidado
    Convidado


    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  Convidado 15/7/2011, 20:47

    Veja por favor

    https://www.facebook.com/home.php#!/profile.php?id=100000923698432
    avatar
    Convidado
    Convidado


    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  Convidado 15/7/2011, 20:49

    Ton.. essas linha são para alterar diretamente na impressora


    Set rpt = Reports("RelatorioExemplo")
    Set rpt.Printer = prtr
    avatar
    ton0612
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    Registrado : 30/03/2011

    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  ton0612 15/7/2011, 21:08

    Harysohn

    desculpe mesmo, mas não entendi... eu tiro estas linhas do comando ao ativar? ou mudo elas? eu entendo que o nome do relatório esta com espaços... mas eu acabei errado isso no inicio e agora fico com medo de mudar e dar pau em algo....

    mas em outro relatório com o nome certo da o mesmo erro.
    avatar
    Convidado
    Convidado


    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  Convidado 15/7/2011, 21:31

    Amigão.. como disse nos post's acima eu nunca utilizei este código..
    o havia encontrado e enviado a um colega para utilizar... ele havia conseguido...
    Enviei uma msg no facebook dele e estou esperando resposta...

    Saudações
    avatar
    ton0612
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    Registrado : 30/03/2011

    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  ton0612 15/7/2011, 21:58

    Perfeito Harysohn vou esperar tambem rrsrsrs.....

    Mas desde ja muito obrigado.... e vou tentando achar uma forma de resolver isso....
    se eu descobrir eu posto aqui.

    Valeu.
    avatar
    ton0612
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    Registrado : 30/03/2011

    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  ton0612 15/7/2011, 22:07

    Harysohn.... Valeu pelo retorno.... e pela a ajuda... mas eu fiz o seguinte:

    eu coloquei o código em um botão. e quando clica no botao ele abre o relatório com quase todas as configurações feitas no código... as margens nao ficaram configuradas.... mas ainda to tentando ver o que pode ser feito.

    pode me ajudar com as margens? por favor?
    avatar
    ton0612
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    Registrado : 30/03/2011

    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  ton0612 15/7/2011, 23:02

    Harysohn segue abaixo o código completo.. colocado em um botão de um form para abrir o relatório.

    Valeu...
    o problema agora só esta na parte das margens.... e aproveitando gostaria de saber como posso usar o tamanho definido pelo usuario. acPRPSUser

    Private Sub btnRelArteFinal_Click()
    Dim datain, dataout As String
    datain = Format(Me.txtDataInicial, ddmmmyyyy)
    dataout = Format(Me.txtDataFinal, ddmmmyyyy)

    If Me.txtDataInicial = 0 Or IsNull(Me.txtDataInicial) Then
    Me.txtDataInicial = Format("01/01/0000", ddmmyyyy)
    Else
    End If
    If Me.txtDataFinal = 0 Or IsNull(Me.txtDataFinal) Then
    Me.txtDataFinal = Format("31/12/2999", ddmmyyyy)
    Else
    End If

    Dim rpt As Access.Report
    Dim prtr As Access.Printer
    Set Application.Printer = Nothing
    Set prtr = Application.Printer
    'Escolhe a orientação do papel
    'onde:
    'Retrato: acPRORPortrait
    'Paisagem: acPRORLandscape
    Dim orientacaodopapel

    orientacaodopapel = acPRORPortrait
    prtr.Orientation = orientacaodopapel
    'Escolhe o tipo de papel
    'onde
    'A3: acPRPSA3
    'A4: acPRPSA4
    'Oficio: acPRPSLegal
    'Consulte demais tipos de papel em AcPrintPaperSize

    Dim tipodepapel
    tipodepapel = acPRPSA4
    prtr.PaperSize = tipodepapel

    'Definir as margens da folha
    Dim margemsuperior
    Dim margeminferior
    Dim margemesquerda
    Dim margemdireita
    margemsuperior = 150
    margeminferior = 150
    margemesquerda = 150
    margemdireita = 50
    prtr.TopMargin = margemsuperior
    prtr.BottomMargin = margeminferior
    prtr.LeftMargin = margemesquerda
    prtr.RightMargin = margemdireita
    'Abrir o relatório em modo de visualização
    DoCmd.OpenReport "rlt Relatório de Artes", acViewPreview, , , acWindowNormal
    Set rpt = Reports("rlt Relatório de Artes")
    DoCmd.Maximize
    Set rpt.Printer = prtr

    DoCmd.Close acForm, "frm Relatorio Arte Final", acSaveYes

    End Sub

    desde ja muito obrigado.
    avatar
    Convidado
    Convidado


    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  Convidado 15/7/2011, 23:04

    A explicação do colega JWano


    É bem simples, são só quadro linhas de código.

    No evento, AO ABRIR do Relatório:

    Me.Printer.TopMargin = 3 * 567 'margem superior
    Me.Printer.BottomMargin = 1* 567 'margem inferior
    Me.Printer.LeftMargin = 3 * 567 'margem esquerda
    Me.Printer.RightMargin =1 * 567 'margem direita

    Os números em vermelho, são as medidas que vc. quer nas margens, em centimetros.
    Os centimetros são multiplicados (*) por 567, para converte-los para twips, que é a medida que a propriedade aceita.

    Para o uso em meu Sistema, estou pegando essas medidas em uma tabela que tenho em um BD auxiliar,
    as quais o usuário personaliza de acordo com sua vontade.
    então ficou assim:

    Private Sub Report_Open(Cancel As Integer)
    Dim Db As DAO.Database
    Dim rs As DAO.Recordset
    Dim cmh As String
    Dim strSQL As String
    cmh = CurrentProject.path & "\Wano_PC.mde"
    strSQL = "SELECT * FROM tbImpr WHERE cdRel = " & 33
    Set Db = OpenDatabase(cmh)
    Set rs = Db.OpenRecordset(strSQL, dbOpenSnapshot)
    If rs.RecordCount > 0 Then
    Me.Printer.TopMargin = rs!nMargSup * 567 'margem superior
    Me.Printer.BottomMargin = rs!nMargInf * 567 'margem inferior
    Me.Printer.LeftMargin = rs!nMargEsq * 567 'margem esquerda
    Me.Printer.RightMargin = rs!nMargDir * 567 'margem direita
    End If
    rs.Close
    Set rs = Nothing
    Db.Close
    Set Db = Nothing
    End Sub



    Agora quero definir o papel: A4, A5, personalizado
    O Access não aceita a definição direta como nas margens, terá que ser definida nas propriedades
    tipo a escolha da Impressora. -
    Assim que tiver um tempo, vou trabalhar nisso


    Poderia postar depois um pequeno exemplo do que fez amigão?

    Saudações
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  Assis 15/7/2011, 23:36

    Boa noite

    Só para ver se ajuda


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Convidado
    Convidado


    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  Convidado 16/7/2011, 00:45

    Perfect! Assis..

    Eu estava até a fazer algo semelhante... hehehehe

    Mas ja está pronto neste exemplo justamente o que eu havia pensado...


    Saudações
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  vieirasoft 16/7/2011, 01:00

    Dava a sugestão ao Assis de colocar esse exemplo no repositório, se ele não se incomodar.
    avatar
    Convidado
    Convidado


    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  Convidado 16/7/2011, 01:49

    Bem Mestre Vieira.. Como eu havia falado acima, quando o nosso querido amigo Assis postou este fabuloso exemplo, eu estava a preparar um com o código que eu havia passado no post..


    Pois bem... o exemplo do colega Assis (ótimo por sinal) grava as alterações no relatorio


    Este que fiz abre o relatorio temporariamente com as modificações...
    Creio que ficou legal tambem...


    Eis

    http://dl.dropbox.com/u/26441349/ConfiguraRelatorio.rar

    Saudações
    avatar
    ton0612
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    Registrado : 30/03/2011

    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  ton0612 16/7/2011, 06:09

    Boa noite pessoal....


    ou devo dizer bom dia?? rsrs

    Harysohn, vieira, Assis

    fico agradecido de me ajudarem.... ainda nao analisei o código do Banco do Assis, mas pelo que vi definitivamente resolve o meu problema.... e Hary, o link que postou nao esta dando certo. gostaria de ver o código que trabalhou tambem.... amanha eu posto como ficou o meu.... pois parte ja tem.... logo acima... pois configurei um botao em um form que configura a impressora antes de abrir o relatório... agora vou ver sobre as margens e amanha posto o resultado....

    mas por enquanto Tópico resolvido.... e Muito Obrigado mesmo... a todos....
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  Assis 16/7/2011, 10:55

    Bom dia Vieira

    Claro que não me incomodo.
    Caminho = repositório
    Bom fim de semana





    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Convidado
    Convidado


    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  Convidado 16/7/2011, 13:35

    Link Operante Amigão
    avatar
    Jr.Wano
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 29/01/2010

    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  Jr.Wano 16/7/2011, 16:22

    Harysohn,

    Por favor, converta seu exemplo para o 2003.

    Abraços,
    avatar
    Convidado
    Convidado


    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  Convidado 16/7/2011, 17:38

    Link 2003
    http://dl.dropbox.com/u/26441349/ConfiguraRelatorio2003.rar

    Saudações
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  Assis 16/7/2011, 20:17

    Hary

    Tem a certeza que é 2003 ?


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Convidado
    Convidado


    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  Convidado 16/7/2011, 20:31

    `hehehehe Embarassed

    me confundi na hora de compactar.. foi mal.. rsrsrs

    http://dl.dropbox.com/u/26441349/ConfiguraRelatorio2003.rar
    avatar
    ton0612
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    Registrado : 30/03/2011

    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  ton0612 16/7/2011, 20:36

    Obrigado Harysohn

    vou analisar agora o seu tb.....

    Muito obrigado..
    avatar
    ton0612
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    Registrado : 30/03/2011

    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  ton0612 17/7/2011, 07:36

    Boa noite pessoal...
    Harysohn, Assis, Vieira. Estou postando abaixo como deixei o código. para facilitar a leitura deixarei o que for código em azul.

    Private Sub Report_Open(Cancel As Integer)
    'Define o tamanho do papel.
    Me.Printer.PaperSize = acPRPSEnv10
    ' substituir o 10 pelo numero em mm que deseja.
    Me.Printer.BottomMargin = 10 * 56.7
    Me.Printer.TopMargin = 10 * 56.7
    Me.Printer.LeftMargin = 10 * 56.7
    Me.Printer.RightMargin = 10 * 56.7

    End Sub



    Primeiramente quero dizer que li e reli cada um dos códigos enviados... no exemplo postado pelo Assis... ainda to na fase de entendimento rsrs... agradeço a todos mais uma vez...

    o que eu fiz depois de muito tentar, foi voltar a estaca zero e tentar item por item... pois percebi no exemplo postado que para configurar o relatorio ele abria em mode oculto... logo para configurar ... teria que dar com o relatorio abrindo. ainda.... enfim....

    após feito isso e tentado algumas outras coisas... gostaria de pedir mais um favor pois nao sei trabalhar com o comando with...

    eu gostaria de definir um tamanho da pagina diferente do existente... entao tentei algo assim:

    Private Sub Report_Open(Cancel As Integer)
    Me.Printer.PaperSize = acPRPSUser
    With PaperSize
    .Width = 9 * 56.7
    .Height = 4 * 56.7
    End With

    ' substituir o 10 pelo numero em mm que deseja.
    Me.Printer.BottomMargin = 10 * 56.7
    Me.Printer.TopMargin = 10 * 56.7
    Me.Printer.LeftMargin = 10 * 56.7
    Me.Printer.RightMargin = 10 * 56.7

    End Sub

    Ele depura dizendo que o "objeto é obrigatório" - enfim nao entendi o que ele quer de objeto.
    depois tentei assim.... tentando adivinhar o que viria a ser o objeto: (linha With)

    Private Sub Report_Open(Cancel As Integer)
    Dim pps As String


    With pps
    .Width = 9 * 56.7
    .Height = 4 * 56.7
    End With
    Me.Printer.PaperSize = pps
    ' substituir o 10 pelo numero em mm que deseja.
    Me.Printer.BottomMargin = 10 * 56.7
    Me.Printer.TopMargin = 10 * 56.7
    Me.Printer.LeftMargin = 10 * 56.7
    Me.Printer.RightMargin = 10 * 56.7

    End Sub

    ele diz que o objeto precisa ser definido como Variant ou Objeto.

    entao ao mudar a dim pps as Variant
    Pede: "Obejeto obrigatorio" de novo (linha .width = 9*56.7)
    mudando para printer
    diz metodo ou membro de dados nao encontrado. (linha .width = 9*56.7)

    entao por fim tentei assim:


    Private Sub Report_Open(Cancel As Integer)

    Me.Printer.PaperSize = acPRPSUser
    With Me
    .Width = 4 * 56.7
    .Height = 4 * 56.7
    End With

    ' substituir o 10 pelo numero em mm que deseja.
    Me.Printer.BottomMargin = 10 * 56.7
    Me.Printer.TopMargin = 10 * 56.7
    Me.Printer.LeftMargin = 10 * 56.7
    Me.Printer.RightMargin = 10 * 56.7

    End Sub

    E desta vez ele depura na linha do .Height, mas quando ignoro ela colocando um '... ele nao da erro, mas também nao muda nada....

    Mais uma vez agradeço....
    avatar
    Convidado
    Convidado


    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  Convidado 17/7/2011, 17:23

    Uma parte de um código em VB.. talvez de para adaptar

    Private Sub imprime_dados()
    Dim tamanhofolha As Integer
    Dim i As Integer
    'define a fonte e o tamanhao da fonte
    Printer.FontName = "Arial"
    Printer.FontSize = "10"
    tamanhofolha = Printer.ScaleHeight - 1440 'define o tamanho da folha
    avatar
    Convidado
    Convidado


    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  Convidado 17/7/2011, 17:40

    Em VBA outro exemplo


    Public Sub PageToTabloid()

    Dim pMxDoc As IMxDocument
    Set pMxDoc = ThisDocument

    pMxDoc.PageLayout.Page.FormID = esriPageFormTabloid

    End Sub

    Public Sub PaperToTabloid()

    Dim pMxDoc As IMxDocument
    Dim pMxApp As IMxApplication
    Dim pPrinter As IPrinter
    Dim pPaper As IPaper
    Dim iFormId As Long
    Dim dPaperWidth As Double, dPaperHeight As Double
    Dim sFormName As String
    Dim pEnumTypeInfo As IEnumNamedID
    Dim sTargetForm As String

    Set pMxDoc = ThisDocument
    Set pMxApp = ThisDocument.Parent
    Set pPrinter = pMxApp.Printer
    Set pPaper = pPrinter.Paper

    ' do a non-case-sensitive search for "11 x 17" in the paper sizes
    ' reported by the printer.
    sTargetForm = "11 x 17"
    Set pEnumTypeInfo = pPaper.Forms
    pEnumTypeInfo.Reset
    iFormId = pEnumTypeInfo.Next(sFormName)
    Do While (InStr(1, sFormName, sTargetForm, vbTextCompare) < 1) And (iFormId > 0)
    Debug.Print "FormID:" & iFormId & vbTab & "FormName:" & sFormName
    iFormId = pEnumTypeInfo.Next(sFormName)
    DoEvents
    Loop
    Debug.Print "*** searched for '" & sTargetForm & "'... found:";
    Debug.Print " FormID:" & iFormId & vbTab & "FormName:" & sFormName

    ' exit the subroutine if the target form was not found on the current printer
    If iFormId = 0 Then Exit Sub

    ' if target form was found, assign it's form id to the Paper object
    pPaper.FormID = iFormId

    ' set the page size to match the new paper size
    pPaper.QueryPaperSize dPaperWidth, dPaperHeight
    pMxDoc.PageLayout.Page.PutCustomSize dPaperWidth, dPaperHeight

    ' turn Same As Printer on
    pMxDoc.PageLayout.Page.FormID = esriPageFormSameAsPrinter
    pMxDoc.ActiveView.PrinterChanged pMxApp.Printer

    End Sub

    avatar
    ton0612
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    Registrado : 30/03/2011

    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  ton0612 17/7/2011, 19:25

    Ola Harysohn... tudo bom....

    obrigado novamente pela força.... entao nao consegui fazer com que o relatorio fique com o tamanho custom.... Mas tudo bem... eu vou definir um tamanho proximo... e formato de acordo com o tamanho menor.... ja conseguimos definir um tamanho padrao da impressora ao iniciar o relatório... ja nao vai mudar ao mudar de impressora ou mudar de computador.


    Obrigado mesmo Harysohn.... eu vou manter assim por enquanto e em breve conseguiremos fazer esta personalização.
    avatar
    Convidado
    Convidado


    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  Convidado 17/7/2011, 19:36

    Eu acho legal ter a opção de um tamanho personalizado...

    Creio que com os códigos ai acima é possivel fazer..

    So não tenho tempo de mexer com isso esta semana...

    Mas fica o tópico ai.. quando tivermos um tempinho sobrando vamos tentar

    Abraços
    avatar
    ton0612
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    Registrado : 30/03/2011

    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  ton0612 17/7/2011, 19:39

    Sim.... eu vou tentar fazer.... mas vou tentar terminar os relatórios antes de configurar ... mas vou ja estudar o código acima...
    Luiz Gustavo M
    Luiz Gustavo M
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 447
    Registrado : 13/09/2011

    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  Luiz Gustavo M 19/12/2011, 18:08

    Olá
    Amigos

    Aos que ainda acompanham este tópico, peço-lhes ajuda

    Utilizo uma impressora Matrixial Epson FX890 para impressão em papel (formulário contínuo) pré impresso por gráfica. Não consigo configurar a impressora pois não há o tamanho de papel de papel que preciso. Não o achei, também aqui no tópico.

    O Formulário Contínuo (papel) tem 15,2cm (altura) X e 21,3 cm (Largura / área de impessão) e mais 1,4cm de serrilhas de cada lado.

    Grato

    Luiz Gustavo

    avatar
    Jr.Wano
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 29/01/2010

    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  Jr.Wano 20/12/2011, 17:08

    Luiz,

    a) Impressão direta (a mais prática e utilizada normalmente para impressoras matriciais - Como usa um formulário impresso, este é o modo indicado)
    b) Criar um novo formato de papel (fomulário) com as medidas que precisa e usa-lo neste relatório. (Se for para seu uso próprio,tudo bem - mas se pretende usar em rede ou em Terceiros, vai ti dar trabalho...)
    Luiz Gustavo M
    Luiz Gustavo M
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 447
    Registrado : 13/09/2011

    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  Luiz Gustavo M 20/12/2011, 17:31

    Olá
    Jr.Wano.

    Agradeço muito sua manifestação.

    Olha, é sim uma impressora matricial. Não será usada em rede. É um sistema muito pequeno e será usado por minha filha que tem uma Micro Empresa. É basicamente um sisteminha para faturamento.

    Se puder me orientar, fico-lhe muito adradecido.
    Sou novato em Accesse pra priorar, em informática também.
    Não sei o que seria uma "impressão direta" e também como fazê-la.
    Criar um novo formato de papel (fomulário) com as medidas que preciso, consigo fazer atráves das propriedades da impressora, só que, a danada da impressora Epson LX890 não tem esta opção. Não consigo criar um tamanho de papel personalizado.

    Pode me dar uma força?

    Obrigado

    Luiz Gustavo

    Conteúdo patrocinado


    [Resolvido]Tamanho fixo da Pagina em Relatório Empty Re: [Resolvido]Tamanho fixo da Pagina em Relatório

    Mensagem  Conteúdo patrocinado


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