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
    stDocName = "rprSoru"
 
DoCmd.PrintOut acPages, 1, 1
 
Exit_Komut14_Click:
    Exit Sub
 
Err_Komut14_Click:
    MsgBox Err.Description
    Resume Exit_Komut14_Click
 
    DoCmd.OpenForm "FaturaDokum"
 
DoCmd.Close acForm, "YaziciSec"
DoCmd.Close acReport, "rrpSoru"
 
End Sub

Private Sub Form_Open(Cancel As Integer)
Dim prt As Printer
Me.YaziciSec.RowSource = ""
For Each prt In Application.Printers
    Me!YaziciSec.AddItem Item:=prt.DeviceName
Next prt
End Sub
 
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
    stDocName = "FaturaDokum"
 
DoCmd.PrintOut acPages, 1, 1
Set Application.Printer = Application.Printers(strDefaultPrinter)
Exit_Komut14_Click:
    Exit Sub
 
Err_Komut14_Click:
    MsgBox Err.Description
    Resume Exit_Komut14_Click
 
    DoCmd.OpenForm "FaturaDokum", , , stLinkCriteria
 
DoCmd.Close acForm, "YaziciSec"
DoCmd.Close acReport, "FaturaDokum"
 
End Sub