Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3145|回复: 10

[已解决]看看这该怎样做附件上有说明

[复制链接]
发表于 2015-11-30 10:49 | 显示全部楼层 |阅读模式
我在负责招聘的公司有现成的人才录用申请表我想用电脑套印给主要信息大出来并保存;其他的由申请人手写具体的要求我在附件上有写好;希望能得到老师们的帮助
最佳答案
2015-12-2 16:18
这下好了。

2015.11.30求助.rar

2.64 KB, 下载次数: 9

发表于 2015-11-30 13:57 | 显示全部楼层
你打印的是什么内容?打印出来的表格是什么样子的?
回复

使用道具 举报

 楼主| 发表于 2015-11-30 14:01 | 显示全部楼层
不是;我只要把文本框里的内容打出来就好了,因为我公司有那种员工入职专用申请表我就套在那张上打出来就是了
回复

使用道具 举报

 楼主| 发表于 2015-11-30 14:02 | 显示全部楼层
因为文本框我可以移动到合适的位置方便套印
回复

使用道具 举报

 楼主| 发表于 2015-12-1 13:29 | 显示全部楼层
我重新上传一下附件已这个为准希望能得到大侠们的帮助

2015.11.30-1求助.rar

2.9 KB, 下载次数: 2

回复

使用道具 举报

发表于 2015-12-1 15:39 | 显示全部楼层
  1. Sub 打印()
  2.     With Sheet2
  3.         r = .[a65536].End(3).Row + 1
  4.         For i = 1 To 7
  5.             .Cells(r, i) = Me.Shapes(i).TextFrame.Characters.Text
  6.             If i > 1 Then
  7.                 Me.Shapes(i).TextFrame.Characters.Text = ""
  8.             Else
  9.                 Me.Shapes(i).TextFrame.Characters.Text = Val(Me.Shapes(i).TextFrame.Characters.Text) + 1
  10.             End If
  11.         Next
  12.     End With
  13.     arr = Range("b1:b" & [b65536].End(3).Row)
  14.     Range("b1:b" & [b65536].End(3).Row).ClearContents  '清空内容
  15.     ActiveSheet.PrintPreview
  16.     [b1].Resize(UBound(arr), 1) = arr       '恢复内容
  17. End Sub

  18. Sub 重新打印()
  19.     Dim xrng As Range
  20.     djh = InputBox("请输入要打印的单据号", , "20151130")
  21.     With Sheet2
  22.         Set xrng = .Range("a:a").Find(djh, lookat:=xlWhole)
  23.         If xrng Is Nothing Then MsgBox "该单据号不存在": Exit Sub
  24.         r = xrng.Row
  25.         For i = 1 To 7
  26.             Me.Shapes(i).TextFrame.Characters.Text = .Cells(r, i)
  27.         Next
  28.     End With
  29.     arr = Range("b1:b" & [b65536].End(3).Row)
  30.     Range("b1:b" & [b65536].End(3).Row).ClearContents
  31.     ActiveSheet.PrintPreview
  32.     [b1].Resize(UBound(arr), 1) = arr
  33. End Sub
复制代码
回复

使用道具 举报

发表于 2015-12-1 15:39 | 显示全部楼层
请看附件。

2015.11.30-1求助.rar

20.71 KB, 下载次数: 3

回复

使用道具 举报

 楼主| 发表于 2015-12-2 09:41 | 显示全部楼层
谢谢老师的帮忙;还有点小文题我反复做了几次后打印就只是打出那单号出来但是保存时正常的不知道哪里还欠点什么
回复

使用道具 举报

发表于 2015-12-2 16:18 | 显示全部楼层    本楼为最佳答案   
这下好了。

2015.11.30-1求助.rar

21.11 KB, 下载次数: 4

回复

使用道具 举报

 楼主| 发表于 2015-12-2 16:46 | 显示全部楼层
老师你太棒了太谢谢了
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 09:41 , Processed in 0.949774 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表