- جۇغلانما
- 3284
تىزىملاتقان2010-8-13
ئاخىرقى قېتىم1970-1-1
توردا سائەت
دوست
|
قۇشۇمچىنى كۈرۈپ باقتىم، بۇ كودلار ئارقىلىق مەقسىدىڭىزنى ئەمەلگە ئاشۇرالمايسىز.
Sub 图片() دىكى كود پەقەت بىرلا ئادەمنىڭ رەسىمىنى قىستۇرۇشقا ئىشلەيدۇ،ھەم رەسىمنىڭ ئىگىزلىكى، كەڭلىكىنى، ئوڭغا ۋە ئۈستىگە ئازراقلا يۆتكەيدۇ. باشقا رۇلى يوق. چۈنكى 7-قۇردىن 34-قۇرغىچە پەقەت بىرلا ئادەمنىڭ كىملىك نۇمۇرى بۇلىدۇ. شۇڭا بۇ كود ئىككىنچى بىر ئادەم بىلەن مۇناسىۋەتسىز.
Sub 查询批量打印() بۇنىڭدىكى كودنىڭ ھېچقانداق رۇلى يوق. ئۇ بەرىبىر بارلىق بەتلەرنى بېسىپ چىقىرىدۇ. بۇنداق دىسەم ئۇ بىرىنچى بەتنىلا بېسىپ چىقىرىدىغۇ دىيىشىڭىز مۇمكىن . چۈنكى سىز بېسىپ چىقىرىش دائىرىسىگە يەنى 定义名称 غا Print_Areaنى=打印!$A$1:$H$39قىلىپ بەلگىلەپ، مۇشۇ بىر بەتنىلا بېسىپ چىقىرىدىغان قىلىپ قۇيۇپسىز.
ئەگەر ActiveSheet.PrintOut كودىنى ActiveSheet.PrintOut from:=i, To:=iغا ئۆزگەرتىۋەتسىڭىز ھەمدە 定义名称دىكى Print_Areaنى ئۈچۈرۋەتسىڭىز ئاندىن بۇ كودنىڭ رۇلى بۇلىدۇ.
سىز يەنىمۇ ئىزدىنى بېقىڭ، سىزگە بىرىدىغان تەكلىپىم: ئالدى بىلەن بېسىپ چىقارماقچى بولغان كىشىلەرنىڭ ئۇچۇرىنى كىرگۈزىدىغان كودنى يېزىڭ، ئاندىن يۇقارقى كودنى ئۆزگەرتىپ رەسىمنى كىرگۈزۈڭ. ئاخىرىغا بېسىپ چىقىرىش كودىنى كىرگۈزۈڭ. ھەممىسىنى بىر كۇنۇپكىغا كىرگۈزسىڭىزمۇ بۇلىدۇ. |
|