怎样打印出单据的流水序号呢？

xliu_bj

一张单据应该有一个流水序号，即使打印作废也有个连续号，像发票收据本子那样。这怎么做呢？谢谢！

Renco

发票收据本子上写错了，你能在同一本上找个另外个相同的编号的再写一张？？

xliu_bj

Renco 发表于 2013-3-19 00:00
发票收据本子上写错了，你能在同一本上找个另外个相同的编号的再写一张？？

不是，我是说像收据本一样，中间有作废的也能知道，打印一张有一个号，打坏了编号就不连续了。
不过，连续不连续的，我一点都不会打！
谢谢指教！我应该从哪里着手呢？

Renco

要去了解，什么叫信息系统，不在思维停在石器时代，
工作要以信息系统为主，纸质单据或凭据为辅，只在于出现问题及责任稽查时，才会去翻看那些原始的纸质凭据

xliu_bj

Renco 发表于 2013-3-20 02:25
要去了解，什么叫信息系统，不在思维停在石器时代，
工作要以信息系统为主，纸质单据或凭据为辅，只在于出 ...

是啊，正是为了不用留着那些纸质单据底子，才想把打印件（报表）自动生成文件，还有上面有每次打印都连续的号码。这两个我还都没解决呢。

Renco

为什么要保存呢？
系统留下的数据不被改动，就行了。

xliu_bj

是，我也是说不必保存纸质单据。但是，我不知道怎样在打印之后留下打印这张单据的系统原始数据，如果有个快照类型的图像，就像打印预览里的那样，保存在一个文件夹里，就好了。那样，纸质的票根就不必要保存了。否则，也不知道哪天打印了没有，上面写什么，编号多少，等等。所以，需要有连续流水号和单据的电子保存文件。我这里有些例子，可是看不懂，更不会用，您给看看行吗？
那个“流水号代码”是段程序，好像可以实现连续流水号的打印，不知道是怎样的流水号，是不是能直接套用。
那个“世界名曲”是打印和保存两项功能，打印时没预览直接打印了，挺烦人。您要是试，得拔掉打印机。我现在就打算试试这个小宏命令。
谢谢！

xliu_bj

Private Sub Command0_Click()
On Error GoTo Err_Command0_Click

    Dim stDocName As String

    stDocName = ChrW(23439) & ChrW(49)
    DoCmd.RunMacro stDocName

Exit_Command0_Click:
    Exit Sub

Err_Command0_Click:
    MsgBox Err.Description
    Resume Exit_Command0_Click
   
End Sub
但是这段我看不懂，所以不知道怎么引用。而且，我打印单据是用报表打印预览窗口上的工具栏，那里的命令也能写代码吗？他这个示例里，打印没有预览，不好用。

xliu_bj

我现在想试试世界名曲那段程序，我是不是把那个按钮的代码拷来，再把那个宏拷进我的.mdb数据库里，就行了呢？谢谢！

Renco

帮你整整你的思维方式：
1.首先不要想着打印的事，首先是我们要往系统中录入数据，形成单据，我们输入单据有先后，那为了区别前后单据的不同，
  至少要有个单据序列号，也就象我们看到手工单据的单据号码一样，号码随着递增流水号，那好。这时我们就可以设计系统输入
  数据时，必先输入这个新增的流水号，那这个输入可以是手工，也可以通过程序设计，由系统自动产生；
  当新增的单据由于错误或不需要时，我们可以删除这张单据，也可以为这个单据打上“作废”的标识，就象我们手工单据一样，
  要么撕掉，要么划若干线表示作废了；
2.考虑打印管理和记录问题，在程序设计时，可以做一个按钮，当然在这个按钮是带有程序代码或宏的，那我们可以这么设计，一点按钮
  这里，在一个地方记录累计按这个按钮的次数，以及按下的时间等信息，如果你是带有登录用户管理的，还能知道是谁点击打印，
  那下次如有查询，可以看打印次数是为0的，就知道是否点击过打印了。