If IsNull(acogr) Or Me.acogr = "" Then

    MsgBox "Lütfen form çıktısı alacağınız öğrenciyi seçiniz", vbCritical, "Öğrenci Seçim Uyarısı"

    acogr.SetFocus

Else

    Dim strReportName As String

    strReportName = "rpr_stajdosyasi2"

    DoCmd.OpenReport strReportName, acViewNormal

    ' Yazıcı ayarlarını belirleme

    DoCmd.PrintOut PrintRange:=acPages, PrintQuality:=acHigh, Copies:=1, Collate:=True, PrintOrientation:=acPRORPortrait, Color:=acPRCMMonochrome, PrintDuplex:=acPRDPVertical

    DoCmd.Close acReport, strReportName

End If

Önlü arkalı yazdırmak için kodunuza printer ayarlarını eklemeniz gerekir. Burada
PrintRange: basılacak sayfa aralığı
PrintQuality: baskı kalitesini
Copies: kaç kopya basılacağını
Collate: kopyaların basım sırasını (true ise her kopya için önce tüm sayfaları basar sonra diğer kopyaya geçer, false ise her sayfayı kopya sayısı kadar basarak ilerler)
PrintOrientation: Baskının yönünü belirler (acPRORPortrait dikey, acPRORLandscape yatay baskı almanızı sağlar)
Color: baskının siyah/beyaz veya renkli olmasını sağlar (acPRCMMonochrome siyah/beyaz, acPRCMColor renkli baskı verir)
PrintDuplex: Baskının önlü arkalı olmasını ayarlar ( acPRDPVertical baskıyı dikey, acPRDPHorizontal yatay olarak önlü arkalı almanızı sağlar)