Открытие отчёта на Печать или Просмотр

Печать

    DoCmd.OpenReport "Имя Отчета", acViewNormal

Просмотр

    DoCmd.OpenReport "Имя Отчета", acViewPreview
    DoCmd.RunCommand acCmdZoom100 'Установка масштаба отображения 100%
    'Или:
    DoCmd.RunCommand acCmdZoom200 'Установка масштаба отображения 200%

Или так:

    DoCmd.OpenReport "Имя Отчета", acViewPreview 'Открытие на просмотр
    DoCmd.Maximize                               'Во весь экран
    DoCmd.RunCommand acCmdPreviewOnePage         'Страницу по размеру окна

Просмотр отчета сразу в виде двух страниц

    DoCmd.OpenReport "Partners", acViewPreview
    DoCmd.RunCommand acCmdPreviewTwoPages 

Печать 2х копий

    DoCmd.OpenReport "Талон", acViewPreview, ,stLinkCriteria, acHidden
    Reports("Талон").Printer.Copies = 2
    DoCmd.Close acReport, "Талон"

Печать 2х копий

    DoCmd.OpenReport "Талон", acViewNormal, , stLinkCriteria, acHidden
    DoCmd.PrintOut acPrintAll, , , , 2
    DoCmd.Close acReport, "Талон"

Открытие на просмотр одной записи отчёта
В DoCmd.OpenReport ... - есть четвёртый аргумент "WhereCondition", проще всего пользоваться им.

Private Sub cmdПечатать_Click()
Dim sWhere As String
    Me.Dirty = False
    sWhere = "[Код Записи] = " & Me![Код Записи]
    DoCmd.OpenReport "Имя Вашего Отчета", acViewPreview, , sWhere 'Открытие на просмотр одной записи отчёта
    DoCmd.Maximize                               'Во весь экран
    DoCmd.RunCommand acCmdPreviewOnePage         'Страницу по размеру окна
End Sub