EXCEL—VBA（3等分A4纸 并按‘套打’格式打印出来？） 针式打印机A4纸分三份 那种一式三联的 就是让他打出来后不动...

excel vba \u7b49\u5206A4\u7eb8

\u4f60\u8981\u7b49\u5206\u591a\u5c11\u4efd\u5c31\u628a\u6253\u5370\u533a\u57df\u8bbe\u7f6e\u4e3a

\u591a\u5c11\u884c\u5217\uff0c\u5404\u4e2a\u884c\u5217\u5bbd\u5ea6\u3001\u9ad8\u5ea6\u76f8\u540c\u3002

\u91cd\u70b9\uff1a\uff1a\u5728\u6253\u5370\u8bbe\u7f6e\u91cc\u8bbe\u7f6e\u4e3a1\u9875\u5bbd\uff0c1\u9875\u9ad8\u5373\u53ef\u3002\u3002

\u8c03\u6574\u884c\u9ad8\u6216\u5217\u5bbd\u5373\u53ef

1\u3001\u7b2c\u4e00\u6b65\uff0c\u5728\u8ba1\u7b97\u673a\u7684\u5de6\u4e0b\u89d2\u627e\u5230\u83dc\u5355\u56fe\u6807\uff0c\u5355\u51fb\u4ee5\u6253\u5f00\u5f00\u59cb\u83dc\u5355\u6253\u5370\u673a\u548c\u4f20\u771f\uff0c\u7136\u540e\u5728\u5f39\u51fa\u7a97\u53e3\u7684\u7a7a\u767d\u5904\u53f3\u952e\u5355\u51fb\u4ee5\u9009\u62e9\u670d\u52a1\u5668\u5c5e\u6027\uff0c\u89c1\u4e0b\u56fe\uff0c\u8f6c\u5230\u4e0b\u9762\u7684\u6b65\u9aa4\u3002
\u3000
2\u3001\u7b2c\u4e8c\u6b65\uff0c\u6267\u884c\u5b8c\u4e0a\u9762\u7684\u64cd\u4f5c\u4e4b\u540e\uff0c\u5728\u670d\u52a1\u5668\u5c5e\u6027\u9875\u4e0a\u9009\u62e9\u683c\u5f0f\uff0c\u6839\u636e\u4e0b\u56fe\u8bbe\u7f6e\u8868\u540d\u79f0\u548c\u683c\u5f0f\u5927\u5c0f\uff0c\u7136\u540e\u5355\u51fb\u201c\u4fdd\u5b58\u683c\u5f0f\u201d\u4ee5\u8bbe\u7f6e\u65b0\u7684\u7eb8\u5f20\u683c\u5f0f\uff0c\u89c1\u4e0b\u56fe\uff0c\u8f6c\u5230\u4e0b\u9762\u7684\u6b65\u9aa4\u3002
\u3000
3\u3001\u7b2c\u4e09\u6b65\uff0c\u6267\u884c\u5b8c\u4e0a\u9762\u7684\u64cd\u4f5c\u4e4b\u540e\uff0c\u9009\u62e9\u8981\u5e94\u7528\u7eb8\u5f20\u7684\u6253\u5370\u673a\uff0c\u53f3\u952e\u5355\u51fb\u4ee5\u9009\u62e9\u6253\u5370\u673a\u5c5e\u6027\uff0c\u7136\u540e\u9009\u62e9\u201c\u6253\u5370\u673a\u9996\u9009\u9879-\u9ad8\u7ea7\u201d\uff0c\u5728\u9ad8\u7ea7\u7a97\u53e3\u4e2d\u8bbe\u7f6e\u7eb8\u5f20\u89c4\u683c\uff0c\u89c1\u4e0b\u56fe\uff0c\u8f6c\u5230\u4e0b\u9762\u7684\u6b65\u9aa4\u3002
\u3000
4\u3001\u7b2c\u56db\u6b65\uff0c\u6267\u884c\u5b8c\u4e0a\u9762\u7684\u64cd\u4f5c\u4e4b\u540e\uff0c\u8fd4\u56de\u201c\u6253\u5370\u673a\u5c5e\u6027\u201d\u7a97\u53e3\uff0c\u9009\u62e9\u201c\u9ad8\u7ea7\u201d\u9875\u9762\uff0c\u5355\u51fb\u201c\u9ad8\u7ea7\u201d\u4ee5\u8bbe\u7f6e\u7eb8\u5f20\u89c4\u683c\uff0c\u7136\u540e\u5355\u51fb\u201c\u786e\u5b9a\u201d\u6309\u94ae\uff0c\u89c1\u4e0b\u56fe\uff0c\u8f6c\u5230\u4e0b\u9762\u7684\u6b65\u9aa4\u3002
\u3000
5\u3001\u7b2c\u4e94\u6b65\uff0c\u6267\u884c\u5b8c\u4e0a\u9762\u7684\u64cd\u4f5c\u4e4b\u540e\uff0c\u518d\u6b21\u9009\u62e9\u201c\u8bbe\u5907\u8bbe\u7f6e\u201d\u9875\u9762\uff0c\u5e76\u5c06\u6240\u6709\u8fdb\u7eb8\u5668\u8bbe\u7f6e\u4e3a\u65b0\u521b\u5efa\u7684\u7eb8\u5f20\u5c3a\u5bf8\uff0c\u914d\u7f6e\u5df2\u5b8c\u6210\uff0c\u89c1\u4e0b\u56fe\u3002\u8fd9\u6837\uff0c\u5c31\u89e3\u51b3\u4e86\u8fd9\u4e2a\u95ee\u9898\u4e86\u3002
\u3000
\u3000

首先确定这个不在excel中设置的，要到打印机中设置。在打印机中设置一个打印样式，步骤：1.开始菜单－设置－控制面板－打印机和传真，在这个页面中，空白的地方点右键－服务器属性，勾选创建新格式，名字就叫出库单吧，再在下面的高度栏里更改你三等分纸的高度，要量准确，做好后点保存！2、再右键点击针式打印机，设置打印机的首页选项里高级，在纸型里选择，你刚刚设置的名字，确定，再点右键属性－设备设置，将进纸器指派里的A4纸全设置成你所设置的样式！确定这样打印机就设置好了！3、再设置Excel里的公共表头，点页面设置－工作表－顶端标题行（选择顶端的标贴行）确定。这样就行了（不过表尾的部分可能需要编程，我不行的，如果我的回答对你有帮助，我非常高兴）呵呵！！

用VBA做不是很复杂，但是用Excel 公式好像很难实现呢。

在打印里选择打印机属性-效果进行调整选项-缩放

你这个要用函数加VBA才可以实现的,可以加我详聊

EXCEL鈥擵BA(3绛夊垎A4绾 骞舵寜鈥樺鎵撯欐牸寮忔墦鍗板嚭鏉?)
绛旓細棣栧厛纭畾杩欎釜涓嶅湪excel涓璁剧疆鐨勶紝瑕佸埌鎵撳嵃鏈轰腑璁剧疆銆傚湪鎵撳嵃鏈轰腑璁剧疆涓涓墦鍗版牱寮忥紝姝ラ锛1.寮濮嬭彍鍗曪紞璁剧疆锛嶆帶鍒堕潰鏉匡紞鎵撳嵃鏈哄拰浼犵湡锛屽湪杩欎釜椤甸潰涓紝绌虹櫧鐨勫湴鏂圭偣鍙抽敭锛嶆湇鍔″櫒灞炴э紝鍕鹃夊垱寤烘柊鏍煎紡锛屽悕瀛楀氨鍙嚭搴撳崟鍚э紝鍐嶅湪涓嬮潰鐨勯珮搴︽爮閲屾洿鏀逛綘涓夌瓑鍒绾哥殑楂樺害锛岃閲忓噯纭紝鍋氬ソ鍚庣偣淇濆瓨锛2銆佸啀鍙抽敭鐐瑰嚮...

鍒╃敤EXCEL VBA 鍒嗛厤A4鍗曞厓鏍肩殑鏁版嵁鍒颁笅琛˙鍒椾腑,鎸夎鍒嗛厤,鍏堝垎閰嶆弧瓒冲墠 ...
绛旓細鍒嗛厤閭ｄ釜A4鍗曞厓鏍间腑鐨勬暟鎹紵鏄綘涓婂浘涓殑A4鍗曞厓鏍间箞锛烝4鍗曞厓鏍间腑鐨勬暟鎹槸浠涔堬紵鍒嗛厤鐨勬潯浠舵槸浠涔堬紵涓嶅厑璁歌秴杩嘇鍒楃殑鏁版嵁鏄粈涔堟剰鎬濓紵鏄笉鍏佽瓒呰繃A鐨勮鏁颁箞锛

excel 鍦ㄥ伐浣滆〃1涓敤vba澶嶅埗宸ヤ綔琛3鐨勬寚瀹氬尯鍩熷埌宸ヤ綔琛4
绛旓細鏀逛竴琛屽氨琛屻侫ctiveCell.Copy Sheet3.[z3] '灏嗘椿鍔ㄥ崟鍏冩牸鐨勫煎鍒跺埌宸ヤ綔琛3鐨刏3鍗曞厓鏍 Sheet3.Select Sheet3.Range("z3").Select Dim j As Integer j = Sheet3.Range("z3").Value 'Z3鍗曞厓鏍肩殑鐨勬暟鎹槸涓涓暣鏁 Worksheets(3).Range(Cells(9, 1).Address, Cells(9 + (j * 2 - 1...

excel鐨VBA璇彞
绛旓細[A4]鍗充负A4鍗曞厓鏍 Resize鐢ㄤ簬璋冩暣鎸囧畾鍖哄煙鐨勫ぇ灏忥紝杩斿洖浠ｈ〃璋冩暣鍚庣殑鍖哄煙銆傚父瑙佽娉曪細Resize(鎬昏鏁帮紝鎬诲垪鏁)杩炶捣鏉ョ湅鐨勮瘽 [A4].Resize(20000, 1)浠4鍗曞厓鏍间负鍘熺偣锛20000琛屻1鍒楋紝鍗矨4锛欰20003

excel鐢VBA鍙︿繚瀛excel涓鐗瑰畾鐨勫伐浣滆〃
绛旓細浠ｇ爜濡備笅锛歴ub 鍒嗗紑瀛樹负宸ヤ綔钖()dim sh as worksheetdim wk1 as workbookdim wk2 as workbookdim ipath as stringapplication.screenupdating = false 鈥樺皢灞忓箷鏇存柊鍏抽棴application.displayalerts = falseipath = thisworkbook.path & "\" '淇濆瓨璺緞涓哄綋鍓嶅伐浣滅翱鎵鍦ㄨ矾寰剆et wk1 = workbooks.addse...

excel琛ㄦ牸vba缂栫▼鐨勬柟娉曟楠
绛旓細excel琛ㄦ牸vba缂栫▼鏁欑▼鍥1 VBA缂栫▼姝ラ2锛氶鍏堟垜浠緱鎵惧埌璇诲彇鏁版嵁鐨勬簮鏂囦欢锛屽彲浠ラ氳繃鑷姩瀵绘壘璺緞鍚+鏂囦欢鍚嶆潵鎵撳紑 PS锛氳娉曚笌VB鐩镐技锛屼笖鍙互閫変腑鑻辨枃璇嶆寜F1鏌ョ湅鍏蜂綋璇硶璇存槑 excel琛ㄦ牸vba缂栫▼鏁欑▼鍥2 VBA缂栫▼姝ラ3锛氬叾娆★紝璇诲彇鎴戜滑闇瑕佺殑鏁版嵁锛屽苟浣滅畝鍗曡祴鍊 excel琛ㄦ牸vba缂栫▼鏁欑▼鍥3 VBA缂栫▼姝ラ4锛...

VBA濡備綍浣块堿3,A4,A5,A6绛変簬A2,B2,C2,D2
绛旓細'VBA濡備綍浣块堿3,A4,A5,A6绛変簬A2,B2,C2,D2 Private Sub Worksheet_SelectionChange(ByVal Target As Range)Application.EnableEvents = False If Target.Row >= 3 And Target.Row <= 6 And Target.Column = 1 Then [a3] = [a2][a4] = [b2][a5] = [c2][a6] = [d2]End If Applicat...

涓涓畝鍗曠殑ExcelVBA绋嬪簭
绛旓細鍏堢紪鍐欎竴涓潪甯哥畝鍗曠殑Excel VBA绋嬪簭銆俒澶嶄範]鍑嗗浠ｇ爜杈撳叆鐜 鎸堿lt+F11缁勫悎閿紝鎵撳紑VBE缂栬緫鍣ㄣ傚崟鍑昏彍鍗曗滄彃鍏モ斺旀ā鍧椻濓紝鎻掑叆涓涓爣鍑嗘ā鍧楋紝VBE浼氳嚜鍔ㄥ懡鍚嶄负鈥滄ā鍧1鈥濓紝濡備腑鐨勭澶存墍绀恒傚湪涓憿鎵鏍囪瘑鐨勪唬鐮佺紪杈戠獥鍙ｄ腑锛岃緭鍏ヤ唬鐮併傝鏄庯細鏈郴鍒楁枃绔犱腑浠ュ悗鎵璇寸殑杈撳叆浠ｇ爜锛屽鏃犵壒娈婅鏄庯紝瑕佷箞鏄湪鎻掑叆...

璇锋暀,濡備綍浣跨敤Excel VBA缂栫▼灏嗗綋鍓嶇獥浣撳湪A4绾镐笂妯悜鎵撳嵃?璋㈣阿!_鐧惧害鐭...
绛旓細.FooterMargin = Application.InchesToPoints(0.3).PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 600 .CenterHorizontally = False .CenterVertically = False .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber ...

濡備綍鍦excel涓杈撳叆vba浠ｇ爜?
绛旓細1銆侀鍏堬紝鍦Excel涓鏂板缓鏁版嵁琛ㄦ牸銆2銆佺劧鍚庯紝鍦ㄧ數鑴戦敭鐩樹笂鎸夊揩鎹烽敭Alt+F11锛屼粠鑰孍xcel杩涘叆vba鐣岄潰銆3銆佹帴鐫锛屽湪Excel鐨剉ba鐣岄潰渚濇鐐瑰嚮鎻掑叆鈥斺旀ā鍧楋紝浠庤岃繘鍏ヤ唬鐮佺紪鍐欑殑鐣岄潰銆4銆佹渶鍚庯紝鍦ㄤ唬鐮佺紪鍐欑殑鐣岄潰杈撳叆浠ｇ爜锛歴ub鍚堣20()Dim a Do Until Sheet2. Cells (a, 2)=""Sheet2. Cells(2, 3)= ...

扩展阅读：vba入门 ... vba经典代码大全pdf ... vba电子书免费下载 ... excel vba 跳出for循环 ... excel vba实例800下载 ... excel在线分割 ... 从lv2开始开挂的勇者候补 ... excel如果大于3就填a ... excel表格& ...