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

来生缘

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

95888

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

ZDYCTD

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

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

liuxiao

我也想知道！

xibeiakang

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

dy_ysl

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

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

dy_ysl

建一个辅助表,可实现银行存折打印功能..以下是本人已通过测试的代码:
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

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

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

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

hupanshan

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


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

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