Modul Setting_printer

Option Explicit

Sub setting_printer()

'Application.Dialogs(xlDialogPrint).Show
'Application.Dialogs(xlDialogPrinterSetup).Show
'Sheet11.Select
Application.SendKeys ("^p")
'Sheet1.PrintPreview

'Application.Dialogs(xlDialogPageSetup).Show
Sheet1.Select

End Sub