오토핫키-엑셀 프린터 기본값 설정하기

 

 

1번 누르면 엑셀창이 나타나면서, 프린트설정창이나타난다,

원하는 프린트를설정하면 선택한 프린터가 기본값이 돼면서,

기본값한 프린터를 클립보드에 복사.

 

1:: ;스크립트시작

x1 := comobjcreate("excel.application")
x1.workbooks.add
x1.visible := true ;false

2::      ;여기서부터 다시시작 프린터 다시설정하고 클립보드에저장
x1.Application.Dialogs(9).Show  ;xlDialogPrinterSetup   프린터 셋업 다이얼로그 실행
x1.Application.ActivePrinter       ;선택한프린터를 활성화     
clipboard := x1.Application.ActivePrinter  ;활성화한 프린터를 클립보드에저장.

return

3::exitapp      ;스크립트 종료