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