[VB6] Disporre dati in righe e colonne in una MSFlexGrid

[Mercante in fie]

Linguaggio visual basic 6

Ciao ragazzi io usando questo codice:

Dim r
Dim c
 With MSFlexGrid1
        For r = 1 To .Rows - 1
            For c = 1 To .Cols - 1
                Printer.Print .TextMatrix(r, c);
            Next c
            Printer.Print
        Next r
    End With
    Printer.EndDoc

riesco a stampare una MSflexgrid dopo aver effettuato delle manipolazioni con delle query
il problema e sicuramente ve ne siete gia' accorti ,mi stampa tutti i record attaccati Es.
PippoVia massan 21Torino
io vorrei stampare cosi: Pippo Via Massa n 21 Torino e se possibile aggiungere una tabella
mi potete aiutare grazzieeeeee

[Mercante in fie]

Ops: dimenticavo per aggiungere alla stampa anche le intestazioni di colonna ?
con una dbgrid non cambia nulla nel codice vero ????

[alka]

Se parli di VB6, perché scegliere il prefisso Delphi? :master:

C'è un forum apposta per questo linguaggio. Sposto la discussione (e correggo il titolo).

[Mercante in fie]

scusa alka e la seconda volta che sbaglio

[kalosjo]

Dim r
Dim c
 With MSFlexGrid1
        For r = 0 To .Rows - 1
            For c = 1 To .Cols - 1
                Printer.Print .TextMatrix(r, c) & vbtab & vbtab
            Next c
            Printer.Print
        Next r
    End With
    Printer.EndDoc

[Mercante in fie]

Grazie::::kalosjo era quello che mi serviva..mancava solo ";" dopo l'ultimo vbtab il problema e che non stampa nessuna tabella e stampa non allineato cioe:

data mese cliente
12-02-2006 aprile moglia s.r.l.

come fare per allineare intestazione e record ?????
e per aggiungere una tabella

Dim r
Dim c
 With MSFlexGrid1
        For r = 0 To .Rows - 1
            For c = 1 To .Cols - 1
                Printer.Print .TextMatrix(r, c) & vbTab & vbTab;
            Next c
            Printer.Print
        Next r
    End With
    Printer.EndDoc

grazzieeee.....

[Mercante in fie]

Ciaooo rovistando nei miei libri ho capito che ci vuole un ciclo con le proprieta' currentx e currentyho provato ad inserire nel codice postato sopra le proprietaì ma mi da sempre errore ...qualcuno sa mostrarmi il codice esatto????? o perlomeno dove inserire currenx e currenty

Grazzieeeee

[Boolean]

Originariamente inviato da Mercante in fie
Ciaooo rovistando nei miei libri ho capito che ci vuole un ciclo con le proprieta' currentx e currenty

Rovistando nei tuoi libri, eh?

non tel'hanno per caso suggerito su MasterDrive, dove avevi anche detto che il problema era risolto? :rollo:

in ogni caso nel "rovistamento" del libro non c'era proprio nulla che ti potesse far capire come impiegare CurrentX e CurrentY?

Boolean

[Mercante in fie]

Bravo Boolean ma vedi.... avevo chiesto aiuto non una predica cmq. grazie del tuo interesamento la tua risposta non merita commenti
Sciaoooooo

[Boolean]

Nessuna predica, non sono il tipo...
volevo solo richiamare l'attenzione sulla correttezza da mantenere verso i partecipanti di un forum che dedicano il loro tempo per aiutarti a risolvere i problemi.
se dici che va tutto bene, per poi porre la stessa identica domanda, cosa dai da pensare?
fai credere che hai capito e che hai risolto, quando in realtà non è affatto vero...

se permetti, da un po' fastidio...

in ogni caso, per risolvere il tuo problema, come ti è stato detto, devi impostare ad ogni iterazione CurrentX e CurrentY.

per CurrentX, potresti usare un Array di valori che rappresentano le "colonne"

è ovvio che l'array deve avere un numero di dimensioni identico al numero di colonne, quindi se hai 3 colonne nella Flex:

Dim r
Dim c
    Colonne = Array(1000, 2000, 3000)
    Riga = 1000 
 With MSFlexGrid1
        For r = 0 To .Rows - 1
        Riga = Riga + (R * 300) ' incrementa la posizione della riga di 300 Twips per volta
            For c = 1 To .Cols - 1
                Printer.CurrentY = Riga ' ad ogni colonna stampata riporta CurrentY al giusto valore di riga
                Printer.CurrentX = Colonne(C-1) ' prende dall'array la coordinata della colonna
                Printer.Print .TextMatrix(r, c)
            Next c
        Next r
    End With
    Printer.EndDoc

Boolean