如果何实现银行存折一样的打印功能

来生缘 · 发表于 2009-12-13 15:22

那第一页打满了，我再把第一页塞进去，还是会打印的，银行的就不会

95888 · 发表于 2009-12-13 15:50

这个问题我也想学习一下。

ZDYCTD · 发表于 2009-12-13 16:05

我想这种打印功能应该是可以实现的，只是我现在找不到好办法。

[ 本帖最后由 ZDYCTD 于 2009-12-13 22:08 编辑 ]

liuxiao · 发表于 2009-12-13 20:43

我也想知道！

xibeiakang · 发表于 2009-12-13 22:24

只要记住最后一次打到第几行了就行吧

dy_ysl · 发表于 2009-12-13 22:40

Sub dy()
n = Sheet1.Range("a65536").End(xlUp).Row
m = Sheet1.Range("p65536").End(xlUp).Row'标志已打印
  i = (m - 3) Mod 25'每页打印25行
  j = Int((m - 3) / 25)
k = n - m
If i = 0 Then
   Sheet1.Range("a1:o2").PrintOut'打印表头
For p = 1 To k
   Sheet1.Range("a" & p & ":o" & p).PrintOut
   sheet1.range("p" & p) = "p" 已打印则标志"P"
   Next p
  Else
   For l = 1 To i
   Sheet1.Range("q" & l).PrintOut'打印机走空行
   Next l
      For p = 1 To k
   Sheet1.Range("a" & p & ":o" & p).PrintOut
   sheet1.range("p" & p) = "p" 已打印则标志"P"
   Next p
End If
End Sub

[ 本帖最后由 dy_ysl 于 2009-12-13 22:49 编辑 ]

hupanshan · 发表于 2009-12-14 08:58

真正实现银行存折打印当然需要识别存折是否翻到了正确的页面上。如果打印机没有这种识别功能，那就只能靠人工识别了。在送纸的时候看一下，一页纸是否已经打满了，打满了才换纸，当然也是必须换纸。

dy_ysl · 发表于 2009-12-14 22:13

建一个辅助表,可实现银行存折打印功能..以下是本人已通过测试的代码:
Private Sub Label6_Click()
  Sheet11.Visible = xlSheetVisible
  Sheet11.Select
  n11 = Sheets("sheet11").Range("a65536").End(xlUp).Row
  m11 = Sheets("sheet11").Range("af65536").End(xlUp).Row - 2
If n11 < 2 Then
MsgBox "没有数据可打印!!!!", 64
End If
p = m11 Mod 16
   If p <> 0 Then
   Rows("1:" & p + 2).Font.ColorIndex = 2
   Range("a1:ae" & n11).PrintOut
   Range("af3:af" & n11) = "P"
Else
   If m11 < 1 Then
   Rows("1:2").Font.ColorIndex = 1
   Range("a1:ae" & n11).PrintOut
   Range("af3:af" & n11) = "P"
   Else
   Rows("3:" & m11).Delete
   Rows("1:2").Font.ColorIndex = 1
   Range("a1:ae" & n11).PrintOut
   Range("af3:af" & n11) = "P"
End If
  Sheet11.Visible = xlSheetHidden
  End If
End Sub

sendsend · 发表于 2009-12-18 22:40

原帖由 Tomchenxun 于 2009-12-12 19:59 发表
我打算一个收发文小系统，想实现来一个文件打印一行，直到一张纸打满，再打下一张纸，就银行存折一样，请问有这方面的例子没有

银行存折打印的原理是：系统已经记录了该用户已经打印到了哪一页，存折插入自助设备后自动翻页到该页开始打印，打满后再自动翻页！

[ 本帖最后由 sendsend 于 2009-12-19 12:51 编辑 ]

hupanshan · 发表于 2009-12-20 15:40

原帖由 sendsend 于 2009-12-18 22:40 发表

银行存折打印的原理是：系统已经记录了该用户已经打印到了哪一页，存折插入自助设备后自动翻页到该页开始打印，打满后再自动翻页！

你们那里的银行水平比较高，我见到的没有那么好，我们这里的银行系统打满一页就把存折退出来，提示翻页。

		自动登录	找回密码
密码			免费注册

[求助] 如果何实现银行存折一样的打印功能

抛砖引玉,不成熟的想法...期待高手来解决