[VB6] Come stampare il record corrente visualizzato in un Form

[printlist]

Salve ragazzi qualcuno può aiutarmi a scrivere il codice per stampare un record visualizzato in un form. Ho già ricercato nei precedenti forum ma non ho trovato nulla per poter risolvere il mio problemino.Vi ringazio per la collaborazione!

[oregon]

Stampare il record corrente?

Cosi' come l'hai chiesto, basta usare la Printer.Print con i valori dei campi del recordset.

Ma sarebbe meglio che ti spiegassi con piu' dettagli ...

[printlist]

Intendo dire il record che ho visualizzato in un detrrminato momento sul form.Come faccio a stamparlo con un datareport senza stampare il Form.?

[oregon]

Beh ... se sai che il datareport puo' esserti utile, inseriscine uno e usalo.

Per dirti come fare passo passo, non e' semplice ... leggi questi articoli

http://www.visual-basic.it/articoli/afDataReport1.htm

[printlist]

Questo è il codice che ho scritto, ma Mi da sempre l'errore una volta aperto il datareport (L'operazione non è consentita se l'oggetto è chiuso).

Private Sub ToolbarButton5_Click()
Dim Strsql As String



'<< Stringa SQL che permette di cercare tutti i clienti che hanno la stessa residenza
'<< nel DataReport
Strsql = "Select * from Rubrica" & " Where ID = text1.text"


Stampa Strsql
End Sub
----------------------------------------------------------------------
Private Sub Stampa(sQL As String)
On Error Resume Next
'<< Stampa i dati inviati dalla stringa SQL

'<< Percorso e connessione del Database
ConnessioneADODC1 = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Database di Microsoft Access;Initial Catalog=C:\SITc\Agenda.mdb"
'<< Database
Dim DB As ADODB.Connection
'<< Recordset
Dim RecDati As ADODB.Recordset

Set DB = New ADODB.Connection
Set RecDati = New ADODB.Recordset
DB.ConnectionString = ConnessioneADODC1
DB.Open

Set RecDati = DB.Execute(sQL)
Set DataReport4.DataSource = RecDati
DataReport4.WindowState = 0
DataReport4.Show
End Sub

[printlist]

Salve ragazzi, ho un problemino con la strampa del record che al momento è visualizzato sul Form.Qualcuno può aiutarmi please.Questo è il codice che ho usato, loscrivo così di seguito.


Private Sub Command1_Click()
Dim Strsql As String
Strsql = "Select * from Rubrica WHERE ID = '" & varUno & "'"



Stampa Strsql
End Sub
----------------------------------------------------------------------------------------

Private Sub Stampa(sQL As String)
On Error Resume Next
'<< Stampa i dati inviati dalla stringa SQL

'<< Percorso e connessione del Database
ConnessioneADODC1 = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Database di Microsoft Access;Initial Catalog=C:\SITc\Agenda.mdb"
'<< Database
Dim DB As ADODB.Connection
'<< Recordset
Dim RecDati As ADODB.Recordset

Set DB = New ADODB.Connection
Set RecDati = New ADODB.Recordset
DB.ConnectionString = ConnessioneADODC1
DB.Open

Set RecDati = DB.Execute(sQL)
Set DataReport5.DataSource = RecDati
DataReport5.WindowState = 0
DataReport5.Show
End Sub
------------------------------------------------------------------------------
L'errore che mi compare e del tipo (L'operazione non è consentita se l'ogetto è chiuso).Riesco a stampare il record solo se cambio nel database di Access il tipo di dati del campo ID, da Contatore a Testo, soltanto che poi per il resto del database L'ID è Fondamentale.Grazie anticipatamente spero di essere strato chiaro.