Dim StrRptName as String
StrRptName = combobox.value
DoCmd.OpenReport StrRptName, acViewPreview
şeklinde olmalı. Combobox ifadesini denetim adınızla değiştirmeli, birden fazla sütun var ise olna göre hangi sütundaki değeri alacağını belirtmelisiniz.Yazdırma butonuna yazacağınız kod ise
Dim StrRptName as String
StrRptName = combobox.value
DoCmd.PrintOut acPrintAll, , , , , StrRptName
şeklinde olmalı.