Varsayılan yazıcı sorunu

1 2
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.

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.
19/02/2016, 12:15

kenan827

Çok, çok teşekkürler Hocam ellerinize sağlık tam istediğim gibi olmuş. Hocam tek sorun yazıcıdan bira geç çıktı alıyor. Yani yazdır komutunu verdiğimiz zaman biraz bekledikten sonra yazdırmaya başlıyor. Eğer yazdırmayı hızlandıracak bir kod yoksa konuyu taşıyabilirsiniz. Saygılarımla iyi çalışmalar.
19/02/2016, 12:19

atoz112

sayın kenan827,

Alıntı:...tek sorun yazıcıdan bira geç çıktı alıyor. Yani yazdır komutunu verdiğimiz zaman biraz bekledikten sonra yazdırmaya başlıyor...

ifadenize yönelik olarak;
bu durumun kodlarla bir ilgisi yoktur.aksine,donanımsal bir sorun veya durumdur.

yazıcının seçilmesi,aktif duruma gelmesi ve baskıya hazır hale ulaşması gibi.bir de,yazıcının belli bir ısınma süresi söz konusu olur kimi durumlarda da.

kodlar ile hızlandırma yapılması geçerli değildir.

bilginize...iyi çalışmalar,saygılar.
19/02/2016, 12:22

kenan827

Anladım Hocam bu değerli açıklamalarınız için çok teşekkürler. Konuyu taşıyabilirsiniz saygılar.
1 2