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.