Come stampare con vb 6 ?

[naki]

Aiutatemi vorrei stampare tramite vb 6 ma non so se questo codice và

Questo è il codice :

Private Sub mnustampa_Click()
On Error GoTo GestioneErrori
Dim prin As Byte
Dim archivio As String
prin = 0
archivio = ""
lett ultimorecord, quanticaricati
msfgscomm.Col = 0
msfgscomm.Row = 1
archivio = "c:\Calendario\Giocate\" & msfgscomm.Text & ".fnv"
Open archivio For Random Access Read As #1 Len = LenB(Miagiocata)
If FileLen(archivio) <> 0 Then
Printer.Print Tab(30); "Mie Giocate"
Printer.Print ""
Printer.Print Tab(7); "Partite"; Tab(15); "Risultato"; Tab(15); "Quote"; Tab(15); "Importo"; Tab(15); "Saldo"
For prin = 1 To quanticaricati
With Miagiocata
Get #1, prin, Miagiocata
If EOF(1) Then
Printer.Print Tab(7); Trim(.partite); Tab(15); Trim(.ris); Tab(15); .quote; Tab(15); .importo; Tab(15); .Saldo
Else
Printer.Print Tab(7); Trim(.partite); Tab(15); Trim(.ris); Tab(15); .quote;
End If
End With
Next prin
Printer.EndDoc
End If
GestioneErrori:
If Err.Number = 53 Then
End If
Close #1
End Sub
:master:

praticamente dovrebbe stampare la giocata corrente
che vedi nella MSFlexGrid , pero non so neanche sicuro degli spazi
messi con il tab tra campo e campo
Qui c'è il link dell progetto http://www.tuttocrew.altervista.org/Giornata.rar
o l'exe http://www.tuttocrew.altervista.org/Giornata(exe).rar

Grazie in anticipo spero di essere stato abbastanza chiaro

[oregon]

Ma scusa, non ce lo puoi dire tu se il codice va?

Almeno si discute sugli errori, non che li dobbiamo trovare noi ... cosi' non avrai molte risposte ...

[naki]

scusami ma non ho inchiostro al momento nella stampante
comunque quello che mi interessava era sapere quanti caratteri entrano in un foglio A4

[Grumpy]

Originariamente inviato da naki
scusami ma non ho inchiostro al momento nella stampante
comunque quello che mi interessava era sapere quanti caratteri entrano in un foglio A4

Secondo me questa meriterebbe un premio speciale.

[MItaly]

Oddio!

Comunque non c'è un numero fisso di caratteri per riga, dipende da molti fattori (margini della pagina, dimensione del font, tipo di carattere). Inoltre, anche conoscendo questi dati, usando a spaziatura variabile non è comunque possibile dire quanti caratteri ci stiano in una pagina, dal momento che le varie lettere occupano uno spazio differente (supponendo di riempire una pagina di W e una di I, quest'ultima conterrà molte più lettere).

[naki]

grazie MItaly ma questo lo sapevo gia

[Jeremy75]

scusami ma non ho inchiostro al momento nella stampante

Originariamente inviato da naki
grazie MItaly ma questo lo sapevo gia

Secondo me questo è uno scherzo ..... non è possibile diversamente :quote:

[oregon]

Originariamente inviato da Jeremy75
Secondo me questo è uno scherzo .....

Concordo ...

@naki ...
Ti chiedo di indicare gli errori del tuo codice e non ce li dici ...
In compenso, fai un'altra domanda (che ha poco senso) e comunque dici di sapere la risposta ...

Ci prendi in giro ?

[MItaly]

Originariamente inviato da naki
grazie MItaly ma questo lo sapevo gia

:master:
La prossima volta avvisa che è uno scherzo, che almeno non perdo tempo a risponderti seriamente.