[已解决]求助 做个一件保存并打印的按钮主要是客户信息

k6776545

重新发了一个   求帮忙，添加个按钮打印Sheet2，把Sheet3的C2,C3,C4:E4,C5,C6,C7:E7,C8:E8,C9,E9,E6,E5,E3,G3:I3,G4:I4,G5:I5,G6,G7,G8:I8,G9:I9,I7,I6成行保存到Sheet1并清空

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-6-21 13:07

代码如下，我用的是你的sheet1,sheet2你工作表保护了，可以自己修改参数：

1. Private Sub CommandButton1_Click()
   
2.     With Sheet1
   
3.         n = Sheet3.Cells(Sheet3.Rows.Count, 1).End(xlUp).Row
   
4.         Sheet3.Cells(n + 1, 1) = n
   
5.         Sheet3.Cells(n + 1, 2) = .[c3]
   
6.         Sheet3.Cells(n + 1, 3) = .[D3]
   
7.         Sheet3.Cells(n + 1, 4) = .[C4]
   
8.         Sheet3.Cells(n + 1, 5) = .[G4]
   
9.         Sheet3.Cells(n + 1, 6) = .[C5]
   
10.         .Range("C2,C3,C4:E4,C5,C6,C7:E7,C8:E8,C9,E9,E6,E5,E3,G3:I3,G4:I4,G5:I5,G6,G7,G8:I8,G9:I9,I7,I6").ClearContents
    
11.         .PrintOut Copies:=1, Collate:=True
    
12.     End With
    
13. End Sub

复制代码

跳转到最佳答案楼层

老司机带带我

你要保存为什么样的形式？是以行的形式保存整个单据，还是就以打印的格式保存？是否可以再表述的清楚一点？

k6776545

老司机带带我 发表于 2016-6-20 19:36
你要保存为什么样的形式？是以行的形式保存整个单据，还是就以打印的格式保存？是否可以再表述的清楚一点？

是以行的形式保存，在新建的工作表中保存发货人，发货电话及发货的那些项目信息，谢谢帮忙

k6776545

k6776545 发表于 2016-6-21 10:50
是以行的形式保存，在新建的工作表中保存发货人，发货电话及发货的那些项目信息，谢谢帮忙

Sheet2是打印信息 不用动 ，最好做个按钮 把数据按行保存到新的工作表中并打印然后清空保存的信息，避免重复保存

老司机带带我

代码如下，我用的是你的sheet1,sheet2你工作表保护了，可以自己修改参数：

1. Private Sub CommandButton1_Click()
   
2.     With Sheet1
   
3.         n = Sheet3.Cells(Sheet3.Rows.Count, 1).End(xlUp).Row
   
4.         Sheet3.Cells(n + 1, 1) = n
   
5.         Sheet3.Cells(n + 1, 2) = .[c3]
   
6.         Sheet3.Cells(n + 1, 3) = .[D3]
   
7.         Sheet3.Cells(n + 1, 4) = .[C4]
   
8.         Sheet3.Cells(n + 1, 5) = .[G4]
   
9.         Sheet3.Cells(n + 1, 6) = .[C5]
   
10.         .Range("C2,C3,C4:E4,C5,C6,C7:E7,C8:E8,C9,E9,E6,E5,E3,G3:I3,G4:I4,G5:I5,G6,G7,G8:I8,G9:I9,I7,I6").ClearContents
    
11.         .PrintOut Copies:=1, Collate:=True
    
12.     End With
    
13. End Sub

复制代码

k6776545

老司机带带我 发表于 2016-6-21 13:07
代码如下，我用的是你的sheet1,sheet2你工作表保护了，可以自己修改参数：

哥哥，打印是打印Sheet2的数据，现在点打印就打印Sheet3了 这样不对  还有能把C2,C3,C4:E4,C5,C6,C7:E7,C8:E8,C9,E9,E6,E5,E3,G3:I3,G4:I4,G5:I5,G6,G7,G8:I8,G9:I9,I7,I6得内容都保存下来吗？求修改

老司机带带我

k6776545 发表于 2016-6-21 16:20
哥哥，打印是打印Sheet2的数据，现在点打印就打印Sheet3了 这样不对  还有能把C2,C3,C4:E4,C5,C6,C7:E7,C ...

你看下自己的sheet2，你设置了工作表保护，密码多少？

k6776545

老司机带带我 发表于 2016-6-21 16:27
你看下自己的sheet2，你设置了工作表保护，密码多少？

sunshijian

k6776545

k6776545 发表于 2016-6-21 16:44
sunshijian

Sheet2是打印位置  别变   

k6776545

重新发了一个   求帮忙，添加个按钮打印Sheet2，把Sheet3的C2,C3,C4:E4,C5,C6,C7:E7,C8:E8,C9,E9,E6,E5,E3,G3:I3,G4:I4,G5:I5,G6,G7,G8:I8,G9:I9,I7,I6成行保存到Sheet1并清空