Newsgroup: it.comp.lang.visual-basic
Titolo: Numerazione pagine datareport

Salve a tutti,
volevo sapere se e' possibile cambiare il numero iniziale di
pagina visualizzato in un datareport (la funzione %p) : cioe' ad esempio
vorrei far iniziare la numerazione delle pagine da 5 anziche' da 1  (uso VB6
+ SP4).
Grazie in anticipo.
-- 
Posted from 
pop10-acc.tin.it
 [212.216.176.73] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:000501c0bc38$fc3fbd40$42e6abd4@gianni...


Ciao,
prova a fare questo esperimento :
(scusa se comincio da zero ma non so quali sono le tue difficoltà).
1) Crea un database "c:\documenti\prova.mdb" con Access 97 (non so se hai il
SP4/5 per Access 2000)
2) Crea nel database una tabella chiamata "anagrafica" contenente i campi :
   "Nome","Cognome","Nazione" e riempili con un po' di dati (nel campo
nazione metti "italia" in qualche record)
3) Carica il Visual Basic e crea un nuovo "EXE Standard"
4) Nel menù "Progetto" scegli "Componenti" e seleziona "Microsoft ADO Data
Control 6.0" e poi "OK"
5) Clicca con il tasto destro su "Progetto1" e scegli "inserisci
DataEnvironment"
6) Nella finestra di DataEnvironment1 clicca con il tasto DX su
"Connection1" e scegli "proprietà"
7) Scegli "Microsoft Jet 3.51 OLE DB Provider (o il Jet 4.0 per Access 2000)
e poi "Avanti"
8) Nella casella "Nome database" scrivi "c:\documenti\prova.mdb" poi "OK"
9) Clicca con il tasto DX ancora su "Connection1" e scegli "Aggiungi
command" : apparirà "Command1"
10) Clicca con il tasto DX su "Command1" e scegli "proprietà"
11) Nella sezione "Generale" in "Fonte dati" seleziona "Oggetto database" e
scegli "Tabella"
12) Nel "Nome Oggetto" scegli "Anagrafica" (nome della tabella creata nel
database) poi "OK"
13) Clicca con il tasto DX su "Progetto1" e scegli "Inserisci DataReport"
14) Nelle Proprietà di "Datareport1" seleziona DATASOURCE = DataEnvironment1
e DATAMEMBER = Command1
15) Nella "Section1" (Dettaglio) del DataReport1 con il tasto DX scegli
"inserisci controllo TextBox" (uno per ogni campo da visualizzare)
16) Sulle proprietà "TextBox1" seleziona : DATAMEMBER = Command1 e DATAFIELD
= Cognome
17) Ripeti il punto 16 per ogni TextBox da associare ai campi della tabella
(nome e nazione)
18) Ora vai sul "Form1" e inserisci un bottone "Command1" e un oggetto ADODC
"Adodc1"
19) Clicca con il tasto DX sull'oggetto "Adodc1" e scegli "Proprietà di
ADODC"
20) Seleziona "Usa stringa di connessione" e poi "Genera"
21) Scegli "Microsoft Jet 3.51 OLE DB Provider (o il Jet 4.0 per Access
2000) e poi "Avanti"
22) Nella casella "Nome database" scrivi "c:\documenti\prova.mdb" poi "OK" e
poi ancora "OK"
23) Vai nel menù "Visualizza" e poi "codice" e incolla le righe che seguono
Buon divertimento e fammi sapere se hai difficoltà.
Ciao - Gianni
-----------------------------
Private Sub Command1_Click()
    MyQuery = "select * from ANAGRAFICA where NAZIONE = 'italia'"
    Adodc1.RecordSource = MyQuery
    Adodc1.Refresh
    If Adodc1.Recordset.RecordCount = 0 Then
        MsgBox "Non ci sono dati da stampare", vbInformation, "Attenzione !"
        Exit Sub
    End If
    Set DataEnvironment1.rsCommand1.DataSource = Adodc1
    DataReport1.Show
End Sub
