burada modül üzerinde consta değişiklik yapabilmek olmazsa olmaz
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.
Son durum nedir?
Varmı bir gelişme.
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
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