aşağıda yazılı kodları,KOMUT14 adlı butonunun içerisindekiler ile değiştiriniz.
NOT
deneme imkanım olmadığı için,ancak siz herhangi bir durumda bunu konunuzda belirtebilirsiniz.
Kod:
Private Sub Komut14_Click()
Dim prt As Printer
Dim stDocName As String
Set prt = Application.Printers(Me!YaziciSec.Value)
Set Application.Printer = prt
DoCmd.OpenReport "FaturaDokum", acPreview
DoCmd.Close acForm, "YaziciSec"
DoCmd.PrintOut acPages, 1, 1
DoCmd.Close acReport, "FaturaDokum"
Set Application.Printer = Nothing
End Sub