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