MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Definir Página a Imprimir no Objeto Access.Report

    Eloirp
    Eloirp
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 209
    Registrado : 15/06/2013

    [Resolvido]Definir Página a Imprimir no Objeto Access.Report Empty [Resolvido]Definir Página a Imprimir no Objeto Access.Report

    Mensagem  Eloirp em 6/6/2020, 22:28


    Preciso set para imprimir somente uma página ou intervalo no objeto abaixo, porém pesquisando no fórum e fora também, mas não consegui achar como fazer!


    Código:
        Dim rpt As Access.Report
       
        'Open report with any filters
        DoCmd.OpenReport strNomeRelFuncPrinter, acViewPreview, , , acHidden
        Set rpt = Reports(strNomeRelFuncPrinter)
       
        'Set the default printer's orientation to portrait/landscape
       
        rpt.Printer.Orientation = acPRORPortrait
       
        'Set the default printer's paper size to letter/legal/tabloid/A3/A4
        'rpt.Printer.PaperSize = vbPRPSUse

        'FIRST TRAY ----------------------------------------------
        'Set the default printer's paper bin
        'rpt.Printer.PaperBin = acPRBNUpper
       
        'Print Report
        DoCmd.OpenReport strNomeRelFuncPrinter
       
        'SECOND TRAY  ----------------------------------------------
        'Set the default printer's paper bin
        'rpt.Printer.PaperBin = acPRBNLower
       
        'Print Report
        'DoCmd.OpenReport strNomeRel
       
        'Constants for PaperBin
        'acPRBNUpper = 1  ' Use paper from the upper bin
        'acPRBNLower = 2  ' Use paper from the lower bin
        'acPRBNMiddle = 3  ' Use paper from the middle bin
        'acPRBNManual = 4  ' Wait for manual insertion of each sheet of paper
        'acPRBNEnvelope = 5  'Use envelopes from the envelope feeder
        'acPRBNEnvManual = 6  ' Use envelopes from the envelope feeder, but wait for manual insertion
        'acPRBNAuto = 7  '(Default) Use paper from the current default bin
        'acPRBNTractor = 8  ' Use paper from the tractor feeder
        'acPRBNSmallFmt = 9  ' Use paper from the small paper feeder
        'acPRBNLargeFmt = 10  ' Use paper from the large paper bin
        'acPRBNLargeCapacity = 11  ' Use paper from the large capacity feeder
        'acPRBNCassette = 14  'Use paper from the attached cassette cartridge
        'acPRBNFormSource = 15  ' Use paper from the forms bin
       
        Set rpt = Nothing


    Última edição por Eloirp em 9/6/2020, 15:10, editado 1 vez(es)
    Eloirp
    Eloirp
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 209
    Registrado : 15/06/2013

    [Resolvido]Definir Página a Imprimir no Objeto Access.Report Empty Re: [Resolvido]Definir Página a Imprimir no Objeto Access.Report

    Mensagem  Eloirp em 10/6/2020, 23:35


    Por fim o código ficou assim:

    Código:
    DoCmd.PrintOut , 1, 1, acHigh, strQtdeCopias

    onde , Página Inicial, Página Final, Qualidade Impressão, Número de Cópias

      Data/hora atual: 10/8/2020, 05:38