Sub btnPrintDocs()
Dim ptr1 As String
ptr1 = GetDefaultPrinter() 'save old printer
SetDefaultPrinter "CANON" 'set new printer
printExcel
'DoCmd.OpenReport "myReport" 'print my report
SetDefaultPrinter ptr1 'set back to old printer
End Sub
şöyle çağrılıyormuş
Son Düzenleme: 18/02/2020, 17:53, Düzenleyen: accessman.