Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Suggerimento Visual Basic
Forum - Visual Basic 6 - Suggerimento Visual Basic

Avatar
radioamatore (Normal User)
Newbie


Messaggi: 1
Iscritto: 27/01/2010

Segnala al moderatore
Postato alle 23:36
Mercoledì, 27/01/2010
Salve. Ho compilato un semplice programma in VB che simula la stesura dei voti di ogni singola materia sulla pagella. Una volta salvati i dati in formato .txt e .doc vorrei stamparli in due colonne: quella a sinistra delle materie e quella a destra dei voti ( in numeri ).
C'è qualcuno che mi potrebbe indicare il codice adeguato? Grazie

PM Quote
Avatar
poeo85 (Normal User)
Pro


Messaggi: 104
Iscritto: 27/01/2010

Segnala al moderatore
Postato alle 15:19
Giovedì, 28/01/2010
non so se fa al caso tuo guardati l'oggetto printer

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 16:47
Giovedì, 28/01/2010
Testo quotato
Postato originariamente da radioamatore:
vorrei stamparli in due colonne


quali colonne?

Di una msflexgrid? di un datagrid? o altro?

PM Quote
Avatar
poeo85 (Normal User)
Pro


Messaggi: 104
Iscritto: 27/01/2010

Segnala al moderatore
Postato alle 16:51
Giovedì, 28/01/2010
Da quel che ho capito io lui si salva le due colonne in due file e ne vuole stampare uno.
Giusto ? :-?:-?:-?:-?:-?:-?:-?

PM Quote
Avatar
Louis (Normal User)
Pro


Messaggi: 150
Iscritto: 22/04/2008

Segnala al moderatore
Postato alle 18:48
Giovedì, 28/01/2010
Ciao radioamatore,
potresti usare la stampa della Form, compilare un DataReport ed infine usare l'oggetto Printer; il più semplice é la stampa della Form per la quale in rete ci sono diversi esempi. Quindi lasciando perdere la compilazione del DataReport abbastanza complessa e che non é possibile spiegare in questo contesto (vi sono al riguardo tutorial in rete) ti posto un esempio di stampa con Printer. Come vedrai devi usare le proprietà CurrentX e CurrentY per formare le colonne, inoltre dovrai usare le matrici per incamerare i dati da stampare:
Codice sorgente - presumibilmente VB.NET
  1. Private Sub Form_Load()
  2.     Dim i As Integer
  3.     Dim ip As Integer
  4.     Dim nome_giocatore() As String
  5.     Dim punti_prima() As Single
  6.     Dim punti_seconda() As Single
  7.  
  8. ' Carica le matrici:
  9.     ReDim Preserve nome_giocatore(0 To 3)
  10.     nome_giocatore(0) = "Rossi"
  11.     nome_giocatore(1) = "Bianchi"
  12.     nome_giocatore(2) = "Alighieri"
  13.     nome_giocatore(3) = "Ariosto"
  14.    
  15.     ReDim Preserve punti_prima(0 To 2)
  16.     punti_prima(0) = -15
  17.     punti_prima(1) = -20
  18.     punti_prima(2) = -36
  19.    
  20.     ReDim Preserve punti_seconda(0 To 2)
  21.     punti_seconda(0) = 50
  22.     punti_seconda(1) = 65
  23.     punti_seconda(2) = 15
  24.    
  25.     Printer.FontBold = True
  26.     'Printer.FontItalic = True
  27.     Printer.CurrentY = 1000
  28.        
  29.         For i = LBound(nome_giocatore) To UBound(nome_giocatore)
  30.             Printer.CurrentX = 1200
  31.                 Printer.Print nome_giocatore(i), vbCrLf
  32.                
  33.                 For ip = LBound(punti_prima) To UBound(punti_prima)
  34.                     Printer.CurrentX = 1000
  35.                     Printer.Print punti_prima(ip); Space(3); punti_seconda(ip)
  36.                 Next ip
  37.         Next i
  38.     Printer.EndDoc
  39.  
  40. End Sub

Spero che l'esempio ti possa servire.
:)

PM Quote