Page 1 of 1

อยากให้แมคโคร หยุดที่ ctrl p หรือ file > print ใช้โคดอะไรครับ (มีรูปตัวอย่าง)

Posted: Sun Jul 21, 2019 12:18 pm
by HELP
อยากให้แมคโคร หยุดที่ ctrl p หรือ file > print ใช้โคดอะไรครับ (มีรูปตัวอย่าง)
ลองใช้ printpreview และ printout ยังไม่ตรง
search แล้วยังหาไม่เจอ
ขอบคุณครับ

Re: อยากให้แมคโคร หยุดที่ ctrl p หรือ file > print ใช้โคดอะไรครับ (มีรูปตัวอย่าง)

Posted: Sun Jul 21, 2019 12:46 pm
by snasui
:D ช่วยโพสต์ Code พร้อมไฟล์แนบที่ได้เขียน Code นั้นเอาไว้แล้วมาด้วยครับ

อ่านกฎการใช้บอร์ดข้อ 5 :roll: เพื่อโพสต์ Code ให้เป็นตัวอักษรแบบ Code จะได้สะดวกในการอ่านครับ

Re: อยากให้แมคโคร หยุดที่ ctrl p หรือ file > print ใช้โคดอะไรครับ (มีรูปตัวอย่าง)

Posted: Sun Jul 21, 2019 2:24 pm
by HELP

Code: Select all

Sub Macro43()
'
' Macro43 áÁâ¤Ã
'
' Keyboard Shortcut: Ctrl+q
'
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

Re: อยากให้แมคโคร หยุดที่ ctrl p หรือ file > print ใช้โคดอะไรครับ (มีรูปตัวอย่าง)

Posted: Sun Jul 21, 2019 2:33 pm
by snasui
:D ตัวอย่าง Code ครับ

Code: Select all

Sub Macro43()
    ActiveWindow.SelectedSheets.PrintPreview
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

Re: อยากให้แมคโคร หยุดที่ ctrl p หรือ file > print ใช้โคดอะไรครับ (มีรูปตัวอย่าง)

Posted: Sun Jul 21, 2019 2:43 pm
by HELP
ขอบคุณครับ
ลองใช้ printpreview และ printout ยังไม่ตรงกับ ctrl p ตามรูปตัวอย่างแรกครับ
printpreview จะเป็นรูปนี้

Re: อยากให้แมคโคร หยุดที่ ctrl p หรือ file > print ใช้โคดอะไรครับ (มีรูปตัวอย่าง)

Posted: Sun Jul 21, 2019 3:54 pm
by snasui
:D ตัวอย่าง Code ครับ

Code: Select all

Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")

Re: อยากให้แมคโคร หยุดที่ ctrl p หรือ file > print ใช้โคดอะไรครับ (มีรูปตัวอย่าง)

Posted: Sun Jul 21, 2019 4:09 pm
by HELP
:cp:
ใช้ได้แล้วครับ
ขอบคุณครับ