AccessTr.neT

Sayfalar: 1 2

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.

Ç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.

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.

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

Sayfalar: 1 2

atoz112

kenan827

atoz112

kenan827