[已解决]Excel打印问题（打印信封）

67469698

附件A，B俩表，打印效果如图，如何设置B表的打印做到A表的效果，感恩

最佳答案

月排行榜 / 总排行榜

高

2017-12-2 19:29

=IF(LENB(MID(A2,1,1))=1,SUBSTITUTE(A2,RIGHT(A2,LENB(A2)-LEN(A2)),LEFT(RIGHT(A2,LENB(A2)-LEN(A2)),LENB(A2)-LEN(A2)-3)&"   "&MID(A2,LEN(A2)-2,2)&CHAR(10)&RIGHT(A2,LENB(A2)-LEN(A2)),1),SUBSTITUTE(SUBSTITUTE(A2,CHAR(10),MID(A2,FIND(CHAR(10),A2),LEN(A2)-FIND(CHAR(10),A2))&CHAR(10),1),IF(ISERROR(FIND("先生",A2)),"女士","先生"),IF(ISERROR(FIND("先生",A2)),"   女士","   先生"),1))
另外，刚刚看到你的B表设置了打印区域。把打印区域取消。
已发的压缩文件里的公式还有些问题，就按这个公式吧

跳转到最佳答案楼层

高

一个公式完成的

高

一个公式做的，不知道是不是要这个效果

67469698

高 发表于 2017-12-2 15:50
一个公式做的，不知道是不是要这个效果

老师，附件解压不了，可以直接发公式吗？

67469698

高 发表于 2017-12-2 15:50
一个公式做的，不知道是不是要这个效果

除此之外，表A打印是可以把A列的全部打印出来，我自己做的表B只能逐个点击打印，是不是某种打印设置？

高

=IF(LENB(MID(A2,1,1))=1,SUBSTITUTE(A2,RIGHT(A2,LENB(A2)-LEN(A2)),LEFT(RIGHT(A2,LENB(A2)-LEN(A2)),LENB(A2)-LEN(A2)-3)&"   "&MID(A2,LEN(A2)-2,2)&CHAR(10)&RIGHT(A2,LENB(A2)-LEN(A2)),1),SUBSTITUTE(SUBSTITUTE(A2,CHAR(10),MID(A2,FIND(CHAR(10),A2),LEN(A2)-FIND(CHAR(10),A2))&CHAR(10),1),IF(ISERROR(FIND("先生",A2)),"女士","先生"),IF(ISERROR(FIND("先生",A2)),"   女士","   先生"),1))
另外，刚刚看到你的B表设置了打印区域。把打印区域取消。
已发的压缩文件里的公式还有些问题，就按这个公式吧

67469698

谢谢老师,如果我设置整列打印，那么就达不到一个地址一个信封的目的了，只能选择单个单个单元格。
我的工作流程是这样的：
把空白信封放进打印机，直接把地址打印在信封上。
我查了一天都找不到怎么设置。
还是用word设置好？在复制到excel上？

高

67469698 发表于 2017-12-2 19:44
谢谢老师,如果我设置整列打印，那么就达不到一个地址一个信封的目的了，只能选择单个单个单元格。
我的工 ...

一、我回复的公式有修改，以上面的为准。
二、如果想一次打印一个单元格的内容，请插入分页符。

高

Sub 插入分页符()
For x = 2 To Range("A65536").End(xlUp).Row
   ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Rows(x & ":" & x)
    Next
End Sub

superslow

没那么多事，直接设置下打印纸张为Envelope #10，横向打印，然后把打印区域取消就OK了。