YaziciSec Formundaki kotları ekliyorum üzerinde gekli düzeltmeleri yaparsanız sevinirim. Saygılarımla iyi çalışmalar.
Kod:
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
DoCmd.OpenReport "FaturaDokum", acPreview
DoCmd.Close acForm, "YaziciSec"
DoCmd.PrintOut acPages, 1, 1
DoCmd.Close acReport, "FaturaDokum"
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