我现在遇到了几个烦心的问题，程序没法编下去了。HELP ME!

Question

这种指就是us sf纸型1600驱动带这种纸型,有些打印机可能不带,win2k成为美国标准...反正u打头的就这一种

Answer 1

select查询从第某条记录到第某条记录，首先要有索引字段表示你所讲的纪录号,然后用类似一下的语句来查询
select .... from ..... where id > 10 and id < 20

Answer 2

fuxc(Michael) :
你说的ID是什么？字段名吗？你指的是自动编号的字段吗？
如果是的话就错了。

Answer 3

http://www.csdn.net/expert/topic/559/559271.xml?temp=.3099634
http://www.csdn.net/expert/topic/520/520961.xml?temp=.1674158
http://www.csdn.net/expert/topic/535/535851.xml?temp=3.451174E-02
http://www.csdn.net/expert/topic/548/548463.xml?temp=.3898889
http://www.csdn.net/expert/topic/544/544126.xml?temp=.7976038
如何用print控制横向打印
http://www.csdn.net/expert/topic/547/547955.xml?temp=.7339441
急：关于VB6中打印机对象的纸张设置
http://www.csdn.net/expert/topic/539/539980.xml?temp=.7347376

Answer 4

sonicdater(发呆呆(我答问题*不吵架*因为我呆)) :
先谢谢你再说。

Answer 5

使用select top 10 from ...where ID>...
ID 是指你知道的开始记录的自动编号，如果你不知道，那先确定这个ID，
top 10 是连续10个记录

Answer 6

不要用Select Top ...这种方法。
你用ADODB.RecordSet对象吧，它有PageCount,PageSize,AbsolutePage 等属性.ＡＳＰ网页就是这样做分页显示的。

Answer 7

1. 你先新增一个打印机对象，设为宽行的走孔的打印纸，该打印机设为默认打印机。然后，在程序中，用Printer.Width,Printer.Height取得其长度和宽度。2. 你用ADODB.RecordSet对象吧，它有PageCount,PageSize,AbsolutePage 等属性.ＡＳＰ网页就是这样做分页显示的。具体用法请查ＭＳＤＮ。

Answer 8

你们说的用:ADODB.RecordSet对象吧，它有PageCount,PageSize,AbsolutePage 等属性.ＡＳＰ网页就是这样做分页显示。的方法我很感兴趣。有没有例子，因为我看了一下MSDN我看不懂。一个例子50分

Answer 9

'给你代码:一个listBox，一个textBox，两个command
Option Explicit
Dim db As Connection
Dim lCurrentPage As LongPrivate Sub cmdNext_Click()
    lCurrentPage = lCurrentPage + 1
    Call LoadListBox(lCurrentPage)
End SubPrivate Sub cmdPrevious_Click()
    If lCurrentPage > 1 Then
        lCurrentPage = lCurrentPage - 1
        Call LoadListBox(lCurrentPage)
    End If
End SubPrivate Sub Form_Load()
    
    Set db = New Connection
    db.CursorLocation = adUseClient
    db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & AppPath & "test.mdb;"    lCurrentPage = 1
    Call LoadListBox(lCurrentPage)End Sub
Private Sub LoadListBox(lPage As Long)
    Dim adoPrimaryRS As ADODB.Recordset
    Dim lPageCount As Long
    Dim nPageSize As Integer
    Dim lCount As Long    nPageSize = 7
    Set adoPrimaryRS = New Recordset
    adoPrimaryRS.Open "select * from numbers", db, adOpenStatic, adLockOptimistic    adoPrimaryRS.PageSize = nPageSize
    lPageCount = adoPrimaryRS.PageCount
    If lCurrentPage > lPageCount Then
        lCurrentPage = lPageCount
    End If
    
    txtPage.Text = lPage
    
    adoPrimaryRS.AbsolutePage = lCurrentPage
    
    With lbxRecords
        .Clear
        lCount = 0
        Do While Not adoPrimaryRS.EOF
            .AddItem adoPrimaryRS("aNumber")
            lCount = lCount + 1
            If lCount = nPageSize Then
                Exit Do
            End If
            adoPrimaryRS.MoveNext
        Loop
        
    End With
End SubPrivate Sub Form_Unload(Cancel As Integer)
    If Not db Is Nothing Then
        db.Close
    End If
    Set db = Nothing
End Sub
Public Function AppPath() As String
    
    Dim sAns As String
    sAns = App.Path
    If Right(App.Path, 1) <> "\" Then sAns = sAns & "\"
    AppPath = sAnsEnd Function

Answer 10

你可以用printer.height,printer.width设置打印纸的高度和宽度（具体的纸的大小你可以查资料），然后你看看你的记录有多少条，一条有多少height,你就判断总height,select(*) from table where (条件)，总height=recordcount*每一行高度，然后在打印开始时就可以这样设置
printer.height=recordcount*每一行高度

Answer 11

我的信箱是：[email protected]