請(qǐng)教關(guān)于報(bào)表套打發(fā)票問(wèn)題。

eio

使用針式打印機(jī)的優(yōu)勢(shì)眾所周知。
可是遇到一張客戶(hù)單內(nèi)容長(zhǎng)達(dá)12行的，實(shí)際操作是寫(xiě)3張銷(xiāo)售單，每張銷(xiāo)售單都有合計(jì)。
用ACCESS做的話(huà)，可否開(kāi)一張單，然后打印的時(shí)候分開(kāi)3張。（肯定應(yīng)用補(bǔ)行打印啦）。
然后每張單都有合計(jì)，右上角顯示：共N份，第X份。
可是那個(gè)每頁(yè)合計(jì)以及分開(kāi)幾張不會(huì)。
還有需要設(shè)置打印機(jī)的紙張嗎？
－－－最希望有例子[em02]或者思路啦－－－－

sxhmft

你不是下過(guò)《物業(yè)收費(fèi)管理系統(tǒng)》嗎？哪里邊的收據(jù)打印就有你要的功能，稍加修改就成。

[此貼子已經(jīng)被作者于2003-10-31 19:47:01編輯過(guò)]

eio

是什么原理呢，看不明阿

sxhmft

先運(yùn)行一個(gè)查詢(xún)建立一個(gè)臨時(shí)表，把本次要打印的記錄都放到臨時(shí)表中，若每個(gè)收據(jù)要打印6行，就給臨時(shí)表中再添加空記錄，至到記錄數(shù)為6的整數(shù)倍。然后再進(jìn)行打印。
If intAnswer = vbYes Then
    DoCmd.SetWarnings (False)
    stDocName = "打印前清空票據(jù)臨時(shí)"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    stDocName = "1"
    DoCmd.OpenQuery stDocName, acNormal, acEdit

If DCount("*", "票據(jù)臨時(shí)") Mod 6 <> 0 Then
If DCount("*", "票據(jù)臨時(shí)") = 0 Then
aa = 6
End If
aa = 6 - (DCount("*", "票據(jù)臨時(shí)") Mod 6)
For i = 1 To aa
stDocName = "查詢(xún)1"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName = "查詢(xún)2"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
Next i
End If

  'stDocName = ChrW(31080) & ChrW(25454) & ChrW(25171) & ChrW(21360) & ChrW(26597) & ChrW(-29726)
    'DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName = ChrW(25910) & ChrW(-29383) & ChrW(31080) & ChrW(25454)
    DoCmd.OpenReport stDocName, acNormal ', acPreview
    DoCmd.SetWarnings (True)
    End If
     Me.roomnumber.SetFocus

eio

嘿嘿，這個(gè)追加不難，問(wèn)題是如何每個(gè)表只顯示6行發(fā)票模式？

andymark

在報(bào)表里設(shè)置每頁(yè)只打6行，不夠的用畫(huà)線畫(huà)就可以啦

sxhmft

在報(bào)表打開(kāi)或格式化時(shí)，統(tǒng)計(jì)臨時(shí)表中的記錄數(shù)（N），用　P＝N/6　計(jì)算頁(yè)數(shù)。每次打印6行。用FOR語(yǔ)名循環(huán)打印這樣共幾頁(yè)第幾頁(yè)都有了。

andymark

每頁(yè)合計(jì):
http://ctxi.cn/bbs/dispbbs.asp?boardID=3&ID=12482

沒(méi)牙兔兔

發(fā)現(xiàn)同志啦
嘻嘻，俺也用sxhmft那種方法來(lái)實(shí)現(xiàn)報(bào)表分類(lèi)補(bǔ)空行

ADAM

喔...報(bào)表類(lèi)很秒接觸到..
不妨把代碼貼出來(lái)看看...,倒底是怎樣做的....
嘿嘿.....