Private Sub ReportSetup()
Dim prtFirst As Printer
Dim prtLoop As Printer
Dim s As String
Dim i As Long
For Each prtLoop In Application.Printers
    With prtLoop
        s = s & i & "-" & .DeviceName & "/" & "Driver name: " & .DriverName & " Port: " & .Port & VBA.vbCrLf
    End With
    i = i + 1
Next prtLoop
DoCmd.OpenReport "TestRep", acViewDesign, , , acHidden
i = InputBox(s, "Введите номер принтера", 0)
Reports("TestRep").Printer = Application.Printers(i)
Set prtFirst = Reports("TestRep").Printer
With prtFirst
If MsgBox("Выберите ориентацию, ДА - книжная , Нет - альбомная", vbYesNo) = vbYes Then
    .Orientation = acPRORPortrait
Else
    .Orientation = acPRORLandscape
End If
End With
DoCmd.Close acReport, "TestRep", acSaveYes
DoCmd.OpenReport "TestRep", acViewPreview
End Sub