[VB6] stampare piu pagine

[alexinside83]

ciao a tutti...
Vi spiego il problema.
Devo creare una griglia tipo excel e metterci dentro i codici clienti...
Ho provato a fare una pagina e funziona...ma quando ho voluto stampare piu pagine perchè i clienti erano di piu e non ci stavano nel foglio, ho visto che non mi ripete la griglia che ho creato per la prima...
vi posto il codice:

Private Sub Command1_Click()
Dim i As Integer
Dim X As Integer
Dim Y As Long
Dim X1 As Long
Dim Y1 As Long
Dim strSelect As String
Dim ArrCampi(14) As String

Dim rs As New ADODB.Recordset
Static ConnAccess As New ADODB.Connection
Printer.Orientation = vbPRORLandscape

Impagina
If ConnAccess.State = 0 Then
        ConnAccess.Open strConnAccess
End If


strSelect = "SELECT * FROM punteggi Order by idAssociazioni"

Set rs = ConnAccess.Execute(strSelect)


rs.MoveFirst
K = 0
Y = 300
Do While Not rs.EOF
If K < 27 Then
X = 10
             Printer.Print rs("idAssociazioni")
          Printer.CurrentX = X
        
       
        
    Y = Y + 400
    K = K + 1
    Else
    K = 0
    Printer.EndDoc
    Printer.NewPage
    Impagina
    End If
rs.MoveNext
Loop

End Sub

E la funzione inpagina e quella che mi genera la griglia...

Private Sub Impagina()

Printer.CurrentX = 10
Printer.CurrentY = 10
Printer.Print "Nome Associazione"

Printer.CurrentX = 2400
Printer.CurrentY = 10
Printer.Print "Test A"

Printer.CurrentX = 3200
Printer.CurrentY = 10
Printer.Print "Test B"

Printer.CurrentX = 4000
Printer.CurrentY = 10
Printer.Print "Test C"

Printer.CurrentX = 4800
Printer.CurrentY = 10
Printer.Print "Test D"

Printer.CurrentX = 5600
Printer.CurrentY = 10
Printer.Print "Test E"

Printer.CurrentX = 6400
Printer.CurrentY = 10
Printer.Print "Test F"

Printer.CurrentX = 7200
Printer.CurrentY = 10
Printer.Print "Test G"

Printer.CurrentX = 8000
Printer.CurrentY = 10
Printer.Print "Test H"

Printer.CurrentX = 8800
Printer.CurrentY = 10
Printer.Print "Test I"

Printer.CurrentX = 9600
Printer.CurrentY = 10
Printer.Print "Test L"

Printer.CurrentX = 11200
Printer.CurrentY = 10
Printer.Print "TOTALE"

Printer.CurrentX = 13000
Printer.CurrentY = 10
Printer.Print "RICHIESTO"

Printer.CurrentX = 14600
Printer.CurrentY = 10
Printer.Print "CONCESSO"

a = Combo1.ListIndex
b = Combo2.ListIndex


Printer.CurrentX = 10
Printer.CurrentY = 11100
Printer.Print "filtro area:" & Combo1.List(a) & " e sottoarea:" & Combo2.List(b) & ""

Printer.CurrentX = 11200
Printer.CurrentY = 11100



Printer.CurrentY = 150

Printer.DrawWidth = 6

X1 = 10
For i = 0 To 12

        If i = 0 Then
         X1 = X1 + 2190
         End If
        If i > 0 And i < 10 Then
         X1 = X1 + 800
         End If
         If i > 9 Then
         X1 = X1 + 1600
         End If

         Printer.Line (X1, 10)-(X1, 11000)
         
        
       
        
Next i
Printer.DrawWidth = 3
Y1 = 250
For i = 0 To 28
         
         
         
         Printer.Line (10, Y1)-(16000, Y1)
        Y1 = Y1 + 400
        
       
        
Next i
Y = 300
End Sub

perchè non va?? a parere l0gico sembra funzionare...

grazie a tutti.

per me e un problema molto serio...

bye ale

[tomhead]

hai provato ad utilizzare un report?