Access için 2 satır yetiyor Excel sayfası için yazıcı değiştirmiyordu

Exceli açtırınca yani openden sonra Excel aktif yapılacak activevindow gibi bişey olmalı.
Ondan sonra dediğim işlemler yapılacak.müsait olunca denerim kodları.internetten bulmuştum deneyememiştim.

Lütfen Site Kurallarını tekrar gözden geçiriniz. Konu başlığındaki soru cevaplandığı için konu cevaplanmış konular bölümüne taşındı. Konu başlığından farklı sorunuz var ise yeni konu açınız. 

(06/07/2009, 23:57)AccessTr.neT yazdı: 1-b) Açtığınız konudaki sorun çözümlenmişse aynı konuya konu başlığındaki soru ile ilgisi olmayan farklı soru yazmayınız. Farklı sorunuz var ise yeni konu açınız. 

Ayrıca, lütfen kodlarınızı editördeki VB butonuna tıklayarak ekleyiniz.

Sorun çözümlenmeden taşınmış 
Vb butonunu bimiyordum ama güzel fikirmiş
Modul dosyası olarak eklemiştim ama taşınırken kaybolmuş

(18/02/2020, 18:25)accessman yazdı: Sorun çözümlenmeden taşınmış

Konu başlığındaki "Vba Kodu İle Kapalı Excel Dosyasını Yazdırmak" sorununun neresi çözülmedi?

Dim xlApp As Excel.Application

Set xlApp = CreateObject("Excel.Application")



xlApp.Visible = True



xlApp.Workbooks.Open "D:\myworkbook.xls", True, False

xlApp.Sheets("SayfaAdıBuraya").Select

xlApp.ActiveSheet.PrintOut

xlApp.Workbooks.Close

xlApp.Quit

Set xlApp = Nothing

????

(18/02/2020, 17:19)feraz yazdı: Application.Dialogs(9).Show

Ozan hocanın koduna göre yukarıdaki kod alttaki gibi yapınca printer seçim ekren çıkıyor.Normal Excel kodlarında kullanmak için yyukarıdaki kod geçerli biz bu şekilde yaptığımız için alttaki gibi olacak.