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ı.