ลองดูอันนี้ครับ

http://www.thai-access.com/yeadram_view.php?topic_id=165

ขอบคุณอาจารย์สันติสุขมากครับที่ให้คำแนะนำ
วิธีทำที่ผมใช้ก็ประมาณนี้ครับ ลองประยุคดูน่ะครับสำหรับท่านที่สนใจ

Private Sub Command01_Click()
    Dim rpt As Report
    
    Application.Printer = Application.Printers("EPSON") 'ชื่อเครื่องปริ้น
    
    DoCmd.OpenReport "Report01", acViewPreview, , , acHidden
    Set rpt = Reports!Report01
    
    With rpt.Printer
        .BottomMargin = 720
        .Copies = 2
        .Duplex = acPRDPVertical 'Double sided
        .PaperBin = acPRBNLargeCapacity
    End With
    DoCmd.OpenReport "Report01", acViewNormal
    DoCmd.Close acReport, "Report01", acSaveNo
     
    Set Application.Printer = Nothing
End Sub

Private Sub Command02_Click()
    Dim rpt As Report
    
    Application.Printer = Application.Printers("SAMSUNG") 'ชื่อเครื่องปริ้น
    
    DoCmd.OpenReport "Report02", acViewPreview, , , acHidden
    Set rpt = Reports!Report02
    
    With rpt.Printer
        .BottomMargin = 720
        .Copies = 2
        .Duplex = acPRDPVertical 'Double sided
        .PaperBin = acPRBNLargeCapacity
    End With
    DoCmd.OpenReport "Report02", acViewNormal
    DoCmd.Close acReport, "Report02", acSaveNo
     
    Set Application.Printer = Nothing
End Sub


Private Sub Command03_Click()
    Dim rpt As Report
    
    Application.Printer = Application.Printers("CANNON") 'ชื่อเครื่องปริ้น
    
    DoCmd.OpenReport "Report03", acViewPreview, , , acHidden
    Set rpt = Reports!Report03
    
    With rpt.Printer
        .BottomMargin = 720
        .Copies = 2
        .Duplex = acPRDPVertical 'Double sided
        .PaperBin = acPRBNLargeCapacity
    End With
    DoCmd.OpenReport "Report03", acViewNormal
    DoCmd.Close acReport, "Report03", acSaveNo
     
    Set Application.Printer = Nothing
End Sub