DoCmd.OpenForm "FaturaDokum", , , stLinkCriteria

    DoCmd.Close acForm, "YaziciSec"

DoCmd.Close acReport, "FaturaDokum"

şeklindeki kodları hata durumunda çalışacak kısma eklemişsiniz. Hata yoksa üstteki kodlar çalışmaz

Kodu aşağıdaki ile değiştirerek deneyiniz.

Private Sub Komut14_Click()



On Error GoTo Err_Komut14_Click

    Dim prt As Printer

    Dim stDocName As String

    Set prt = Application.Printers(Me!YaziciSec.Value)

    Set Application.Printer = prt



   DoCmd.OpenReport "tbl_kisiler", acPreview

DoCmd.Close acForm, "YaziciSec"

   DoCmd.PrintOut acPages, 1, 1

   DoCmd.Close acReport, "tbl_kisiler"

  



Exit_Komut14_Click:

    Exit Sub

Err_Komut14_Click:

    MsgBox Err.Description

    Resume Exit_Komut14_Click

End Sub

---

Atoz hocanın uyarısı ile koddaki hatalı kısım düzeltilmiştir.