+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Accessde Vba Kodu İle Kapalı Excel Dosyasını Yazdırmak (/konu-accessde-vba-kodu-ile-kapali-excel-dosyasini-yazdirmak.html)
Cvp: Accessde Vba Kodu İle Kapalı Excel Dosyasını Yazdırmak - accessman - 19/02/2020
burada modül üzerinde consta değişiklik yapabilmek olmazsa olmaz
Cvp: Accessde Vba Kodu İle Kapalı Excel Dosyasını Yazdırmak - feraz - 19/02/2020
Sanmıyorum ve bilmilyorum abey.Bu Api olaylarına kafam basmıyor.
Öncedende dediğim yoldan bence basitçe yapılır.
Önced3n yazdıpım Aa gibi diziye alma olayına gerek olmadanda diğer Array lar ilede olabilir gibi printer adları sabitse.
Biraz uğraşın bence.Benim imkanım yok şuanda olsaydı şimdiye halletmiştim.
Cvp: Accessde Vba Kodu İle Kapalı Excel Dosyasını Yazdırmak - feraz - 19/02/2020
Son durum nedir?
Varmı bir gelişme.
Cvp: Accessde Vba Kodu İle Kapalı Excel Dosyasını Yazdırmak - accessman - 20/02/2020
Şimdilik bir gelişme yok
Cvp: Accessde Vba Kodu İle Kapalı Excel Dosyasını Yazdırmak - feraz - 20/02/2020
Ben uğraşayım istedim şimdiye kadar elime geçmedi bilgisayar
Bu gidişle yedek bir bilgisayar daha almak vacip oldu sanırım
Cvp: Accessde Vba Kodu İle Kapalı Excel Dosyasını Yazdırmak - feraz - 20/02/2020
Alttaki gibi kod yaptım.
Private Sub Befehl0_Click() içindeki Call printYap("OneNote", "Sayfa2") gibi eklemeler yapabilirsiniz.
Tabii modülede Api kodlarını ekleyip deneyebilirsiniz.
Kod:
Option Compare Database
Const dosyaYol As String = "C:\Users\Zafer\Desktop\xxx.xlsx"
Dim xlApp As Excel.Application
Private Sub Befehl0_Click()
Call printYap("Brother DCP-195C", "Sayfa1")
Call printYap("OneNote", "Sayfa2")
End Sub
Function printYap(PrintAd As String, sayfaAd As String)
Dim ptr1 As String
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
' xlApp.Visible = False
xlApp.Application.DisplayAlerts = False
xlApp.Workbooks.Open dosyaYol, True, False
xlApp.Sheets(sayfaAd).Select
SetDefaultPrinter PrintAd
xlApp.Sheets(sayfaAd).PrintOut
'SetDefaultPrinter ptr1 'set back to old printer
xlApp.Application.DisplayAlerts = True
xlApp.Workbooks.Close
xlApp.Quit
Set xlApp = Nothing
End Function