求助制作学生家庭报告书批量打印系统

xysfz · 发表于 2020-9-27 17:07

本帖最后由 xysfz 于 2020-9-29 16:57 编辑

百度经验有一篇文章，叫《EXCEL技巧——制作批量打印通知书系统》，各位EXCEL高手可否能帮忙完善电子版？谢谢！EXCEL表格结构已制作（见附件），所需要实现的功能：
1、在家庭报告书中自动填写“成绩表”中的学生姓名、考勤、成绩和评语。
2、可自动打印全部、部分或某个的学生的家庭报告书
详见百度经验，网址如下：
百度经验网址：https://jingyan.baidu.com/article/48b37f8d6f08ea1a65648875.html
2020年9月29日更新Excel表格数据：
由于缺少Excel这方面知识，最后打印部分未能实现，现已把前期的工作都填好了，麻烦各位大侠帮忙检查我输入的是否正确，以及完善打印功能。谢谢！！！

小花鹿 · 发表于 2020-9-27 20:16

帮你顶一下

ddmc · 发表于 2020-9-27 20:36

http://club.excelhome.net/thread-1536366-3-1.html
见26楼
vba密码是：lhs
自己修改下表格名称，增加个单元位置行；把评语直接加到成绩表后面

一指禅62 · 发表于 2020-9-27 20:59

本帖最后由一指禅62 于 2020-9-27 21:00 编辑

很简单吧！函数也可以解决。

wmqz.130 · 发表于 2020-9-27 21:00

百度经验都告诉你了，你需要动下手就可以了，难道你在用脚上网吗？

loveshoter · 发表于 2020-9-27 21:20

要求很简单，不过确实懒的动手

一指禅62 · 发表于 2020-9-28 16:11

Option Explicit
Dim sRow As Integer, eRow As Integer, i%
Sub 自定义打印()
sRow = Sheet1.Range("R1").Value
eRow = Sheet1.Range("S1").Value
If sRow > eRow Then MsgBox "起始行号不正确！", , "提示": Exit Sub
ActiveSheetPrintOut
End Sub
Sub 单张打印()
Sheet1.Range("B2:O13").PrintOut
End Sub
Sub 全部打印()
sRow = 3
eRow = Sheet2.Range("B65536").End(3).Row
ActiveSheetPrintOut
End Sub
Private Sub ActiveSheetPrintOut()
If MsgBox("下面将打印从第 " & sRow - 2 & " 位第 " & eRow - 2 & " 位同学的《报告书》。" & vbCrLf _
& "打印中不可停止！！！" & vbCrLf & vbCrLf & "是否打印？", vbQuestion + vbYesNo, "打印") = vbYes Then
With Sheet1
For i = sRow To eRow
.Range("Q1") = i
.Range("B2:O13").PrintOut
Next
End With
End If
End Sub