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

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

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