Skip to main content

AccessTr.neT


Accessde Vba Kodu İle Kapalı Excel Dosyasını Yazdırmak

Accessde Vba Kodu İle Kapalı Excel Dosyasını Yazdırmak

#19
Access için alttaki kodu buldum bilmem doğrumu.Denememde doğru sonuç verdi.

Normalde birde sizin Api li kodu deneyeceğim genel olarak bilgisaar aarlarındaki aktif yazıcıyı istenilen olarak ayarlamak için.

    Dim ptr As Printer
    Set ptr = Application.Printer
    Set Application.Printer = Application.Printers("Brother DCP-195C")
    Set Application.Printer = ptr
Cevapla
#20
Teşekkürler feraz
Cevapla
#21
Rica edeim üstad bence en mantıklısı alttaki kod ve resim ekledim.
Bu kodu arıyordum buldum Img-grin
Resimdeki gibi printer seçebilirsiniz ve istenen sayfa numarasını felan ayarlarsınınız vs...


xlApp.Dialogs(xlDialogPrint).Show

[Resim: IUKdaW.png]
Cevapla
#22
Evet bu dialog penceresi güzel ama günde 30 kez aynı sayfayı aynı formatta ve aynı yazıcı ayarlarında yazacaksanız bir kez ayarlamak yeterli olmalı hatta bir kez ayarlayıp ömür boyu kullanmalı
Cevapla
#23
(19/02/2020, 00:42)accessman yazdı: Evet bu dialog penceresi güzel ama günde 30 kez aynı sayfayı aynı formatta ve aynı yazıcı ayarlarında yazacaksanız bir kez ayarlamak yeterli olmalı hatta bir kez ayarlayıp ömür boyu kullanmalı
Onu excelden ayarlayacaksınız hangi Excel dosyasından kopyalanacaksa.
Zaten excelden ayarlansa bu menüye gerek kalmaz tabii yazıcı seçmeyecekseniz direk yazdırırsınız bu sayedede yorulmazsınız yazdıra basmadan Img-grin
Cevapla
#24
O Api li kod kullanışsız geldi bana onunla uğraşana kadar bilgisayar ayarlarından standart olarak ayarlanır yazını seçimi.

Tabii kullanılan amaca göre değişir.Apili kodda heralde bazı ayar gibi şeyler eklenmişti sanki tam incelememiştim.Belki ordan ayarlayabilirsiniz kodları.

Tam olarak ne istediğinizi anlamadım.Anladığım standart yazıcıyı açtırıp ordan gerekirse başka yazıcı seçip  yazdırmak anladığım.Zaten eski yazıcı adını tekrar kaydet felan tuhaf işler.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task