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

Teşekkürler feraz

Rica edeim üstad bence en mantıklısı alttaki kod ve resim ekledim.
Bu kodu arıyordum buldum
Resimdeki gibi printer seçebilirsiniz ve istenen sayfa numarasını felan ayarlarsınınız vs...

xlApp.Dialogs(xlDialogPrint).Show

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ı

(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

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.