18/02/2016, 20:29
atoz112
sayın kenan827,
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.
bilginize...iyi çalışmalar,saygılar.
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
bilginize...iyi çalışmalar,saygılar.