PrintReport

Particula
08 de Diciembre del 2005
Hola a todos,

Necesito vuestra ayuda port favor. resulta que tengo una base de datos. Y resulta que he hecho un datareport y cuando le digo de imprimir un informe me envia a la impresora todos los registros que son mas de 8000. ¿Como puedo hacer para que solo me envie el que yo le pida?. Tengo que decir que acabo de empezar y tengo muy poca idea de Vb, pero espero ir mejorando

Adjunto el codigo que llevo hecho.


Private Sub actualizaprogress(pb As Control, ByVal percent)
Dim num$
pb.Cls
pb.ScaleWidth = 100
pb.DrawMode = 10
num$ = Format(percent, "##") + "%"
pb.FontSize = 8
pb.CurrentX = 50 - pb.TextWidth(num$) / 2
pb.CurrentY = (pb.ScaleHeight - pb.TextHeight(num$)) / 2
pb.Print num$
pb.Line (0, 0)-(percent, pb.ScaleHeight), , BF
pb.Refresh
End Sub

Private Sub Cancelar_Click()
Vaixells.Recordset.CancelBatch

MnuBuscar = True
MnuGestion = True
MnuDesplazamiento = True
MnuArchivo = True
MnuAyuda = True
Registros.BackColor = &H404000
SSTab1.BackColor = &H404000
Text22.BackColor = &H404000
Text30.BackColor = &H404000
Barco.Enabled = False
Gestio.Enabled = False
Data.Enabled = False
Foli.Enabled = False
Llista.Enabled = False
Matrícula.Enabled = False
Eslora.Enabled = False
Marca.Enabled = False
Intra_Fora.Enabled = False
Manga.Enabled = False
Tipo.Enabled = False
Gasolina_Diesel.Enabled = False
Puntal.Enabled = False
Motor.Enabled = False
HP.Enabled = False
RB.Enabled = False
Model.Enabled = False
Numero_Serie.Enabled = False
NIB.Enabled = False
SAI.Enabled = False
Navegabilidad.Enabled = False
RadioBat.Enabled = False
Inspeccion_Radio.Enabled = False
Despatx.Enabled = False
RadioHidr.Enabled = False
Extintors.Enabled = False
Balsa_Salvavidas.Enabled = False
Indicador.Enabled = False
Construcción.Enabled = False
Armador.Enabled = False
DNI_Armador.Enabled = False
AdreçaArmador.Enabled = False
CP_Armador.Enabled = False
Poblacion_Armador.Enabled = False
Provincia_Armador.Enabled = False
Tel1_Armador.Enabled = False
Tel2_Armador.Enabled = False
Fax_Armador.Enabled = False
Email_Armador.Enabled = False
Armador2.Enabled = False
Venedor.Enabled = False
DNI_Venedor.Enabled = False
Adreça_Venedor.Enabled = False
CP_Venedor.Enabled = False
Poblacio_Venedor.Enabled = False
Provincia_Venedor.Enabled = False
Tel1_Venedor.Enabled = False
Tel2_Venedor.Enabled = False
Fax_Venedor.Enabled = False
Email_Venedor.Enabled = False
Venedor2.Enabled = False
Notas.Enabled = False
Propietario1.Enabled = False
Propietario2.Enabled = False
Propietario3.Enabled = False
Propietario4.Enabled = False
DNI1.Enabled = False
DNI2.Enabled = False
DNI3.Enabled = False
DNI4.Enabled = False
Direccion1.Enabled = False
Direccion2.Enabled = False
Direccion3.Enabled = False
Direccion4.Enabled = False
CP1.Enabled = False
CP2.Enabled = False
CP3.Enabled = False
CP4.Enabled = False
Poblacion1.Enabled = False
Poblacion2.Enabled = False
Poblacion3.Enabled = False
Poblacion4.Enabled = False
Data1.Enabled = False
Data2.Enabled = False
Data3.Enabled = False
Data4.Enabled = False
Notas.Enabled = False
Grabar.Visible = False
Cancelar.Visible = False
Vaixells.Recordset.MoveLast

End Sub

Private Sub Form_Load()
Vaixells.Recordset.MoveLast
End Sub

Private Sub Grabar_Click()
Picture1.Visible = True
Picture1.ForeColor = RGB(100, 100, 100)
For i = 0 To 100
actualizaprogress Picture1, i
Call pausa
Next i
Vaixells.Recordset.Update
Picture1.Visible = False
Grabar.Visible = False
Cancelar.Visible = False
MnuBuscar = True
MnuGestion = True
MnuDesplazamiento = True
MnuArchivo = True
MnuAyuda = True
Registros.BackColor = &H404000
SSTab1.BackColor = &H404000
Text22.BackColor = &H404000
Text30.BackColor = &H404000
Barco.Enabled = False
Gestio.Enabled = False
Data.Enabled = False
Foli.Enabled = False
Llista.Enabled = False
Matrícula.Enabled = False
Eslora.Enabled = False
Marca.Enabled = False
Intra_Fora.Enabled = False
Manga.Enabled = False
Tipo.Enabled = False
Gasolina_Diesel.Enabled = False
Puntal.Enabled = False
Motor.Enabled = False
HP.Enabled = False
RB.Enabled = False
Model.Enabled = False
Numero_Serie.Enabled = False
NIB.Enabled = False
SAI.Enabled = False
Navegabilidad.Enabled = False
RadioBat.Enabled = False
Inspeccion_Radio.Enabled = False
Despatx.Enabled = False
RadioHidr.Enabled = False
Extintors.Enabled = False
Balsa_Salvavidas.Enabled = False
Indicador.Enabled = False
Construcción.Enabled = False
Armador.Enabled = False
DNI_Armador.Enabled = False
AdreçaArmador.Enabled = False
CP_Armador.Enabled = False
Poblacion_Armador.Enabled = False
Provincia_Armador.Enabled = False
Tel1_Armador.Enabled = False
Tel2_Armador.Enabled = False
Fax_Armador.Enabled = False
Email_Armador.Enabled = False
Armador2.Enabled = False
Venedor.Enabled = False
DNI_Venedor.Enabled = False
Adreça_Venedor.Enabled = False
CP_Venedor.Enabled = False
Poblacio_Venedor.Enabled = False
Provincia_Venedor.Enabled = False
Tel1_Venedor.Enabled = False
Tel2_Venedor.Enabled = False
Fax_Venedor.Enabled = False
Email_Venedor.Enabled = False
Venedor2.Enabled = False
Notas.Enabled = False
Propietario1.Enabled = False
Propietario2.Enabled = False
Propietario3.Enabled = False
Propietario4.Enabled = False
DNI1.Enabled = False
DNI2.Enabled = False
DNI3.Enabled = False
DNI4.Enabled = False
Direccion1.Enabled = False
Direccion2.Enabled = False
Direccion3.Enabled = False
Direccion4.Enabled = False
CP1.Enabled = False
CP2.Enabled = False
CP3.Enabled = False
CP4.Enabled = False
Poblacion1.Enabled = False
Poblacion2.Enabled = False
Poblacion3.Enabled = False
Poblacion4.Enabled = False
Data1.Enabled = False
Data2.Enabled = False
Data3.Enabled = False
Data4.Enabled = False
Notas.Enabled = False
Vaixells.Recordset.MovePrevious
Vaixells.Recordset.MoveNext
End Sub

Private Sub MnuArSalir_Click()
End
End Sub

Private Sub MnuAyAcercade_Click()
Acerca.Show (1)
End Sub

Private Sub MnuBuArmador_Click()
Dim buscando As String, Criterio As String

buscando = InputBox("Escriu el nom o cognoms a buscar", "[BA-2 SOLUCIONES] - Servidor -")
If buscando = "" Then Exit Sub
Criterio = "farmador Like '*" & buscando & "*'"

Vaixells.Recordset.MoveNext
If Not Vaixells.Recordset.EOF Then
Vaixells.Recordset.Find Criterio
End If
If Vaixells.Recordset.EOF Then
Vaixells.Recordset.MoveFirst

Vaixells.Recordset.Find Criterio
If Vaixells.Recordset.EOF Then
Vaixells.Recordset.MoveLast
MsgBox ("No existeix el armador a la base de dades"), vbCritical
End If
End If
End Sub

Private Sub MnuBuDNIArmador_Click()
Dim buscando As String, Criterio As String

buscando = InputBox("Escriu el D.N.I. del Armador a buscar", "[BA-2 SOLUCIONES] - Servidor -")
If buscando = "" Then Exit Sub
Criterio = "fDNIA Like '" & buscando & "'"

Vaixells.Recordset.MoveNext
If Not Vaixells.Recordset.EOF Then
Vaixells.Recordset.Find Criterio
End If
If Vaixells.Recordset.EOF Then
Vaixells.Recordset.MoveFirst

Vaixells.Recordset.Find Criterio
If Vaixells.Recordset.EOF Then
Vaixells.Recordset.MoveLast
MsgBox ("No existeix el D.N.I."), vbCritical
End If
End If
End Sub

Private Sub MnuBuDNIVendedor_Click()

Dim buscando As String, Criterio As String

buscando = InputBox("Escriu el D.N.I. del Venedor a buscar", "[BA-2 SOLUCIONES] - Servidor -")
If buscando = "" Then Exit Sub
Criterio = "fDNIV Like '" & buscando & "'"

Vaixells.Recordset.MoveNext
If Not Vaixells.Recordset.EOF Then
Vaixells.Recordset.Find Criterio
End If
If Vaixells.Recordset.EOF Then
Vaixells.Recordset.MoveFirst

Vaixells.Recordset.Find Criterio
If Vaixells.Recordset.EOF Then
Vaixells.Recordset.MoveLast
MsgBox ("No existeix el D.N.I."), vbCritical
End If
End If
End Sub

Private Sub MnuBuExpediente_Click()
Dim buscando As String, Criterio As String

buscando = InputBox("Escriu número de expedient a buscar", "[BA-2 SOLUCIONES] - Servidor -")
If buscando = "" Then Exit Sub
Criterio = "fVaixellId Like '" & buscando & "'"

Vaixells.Recordset.MoveNext
If Not Vaixells.Recordset.EOF Then
Vaixells.Recordset.Find Criterio
End If
If Vaixells.Recordset.EOF Then
Vaixells.Recordset.MoveFirst

Vaixells.Recordset.Find Criterio
If Vaixells.Recordset.EOF Then
Vaixells.Recordset.MoveLast
MsgBox ("No existeix el número de expedient"), vbCritical
End If
End If
End Sub

Private Sub MnuBuFolio_Click()
Dim buscando As String, Criterio As String

buscando = InputBox("Escriu el número de foli a buscar", "[BA-2 SOLUCIONES] - Servidor -")
If buscando = "" Then Exit Sub
Criterio = "ffolio Like '" & buscando & "'"

Vaixells.Recordset.MoveNext
If Not Vaixells.Recordset.EOF Then
Vaixells.Recordset.Find Criterio
End If
If Vaixells.Recordset.EOF Then
Vaixells.Recordset.MoveFirst

Vaixells.Recordset.Find Criterio
If Vaixells.Recordset.EOF Then
Vaixells.Recordset.MoveLast
MsgBox ("No existeix el número de foli"), vbCritical
End If
End If
End Sub

Private Sub MnuBuIndicador_Click()

Dim buscando As String, Criterio As String

buscando = InputBox("Escriu el Indicador a buscar", "[BA-2 SOLUCIONES] - Servidor -")
If buscando = "" Then Exit Sub
Criterio = "fIndicador Like '*" & buscando & "*'"

Vaixells.Recordset.MoveNext
If Not Vaixells.Recordset.EOF Then
Vaixells.Recordset.Find Criterio
End If
If Vaixells.Recordset.EOF Then
Vaixells.Recordset.MoveFirst

Vaixells.Recordset.Find Criterio
If Vaixells.Recordset.EOF Then
Vaixells.Recordset.MoveLast
MsgBox ("No existeix Indicador"), vbCritical
End If
End If
End Sub

Private Sub MnuBuNIB_Click()
Dim buscando As String, Criterio As String

buscando = InputBox("Escriu el NIB a buscar", "[BA-2 SOLUCIONES] - Servidor -")
If buscando = "" Then Exit Sub
Criterio = "fnib Like '" & buscando & "'"

Vaixells.Recordset.MoveNext
If Not Vaixells.Recordset.EOF Then
Vaixells.Recordset.Find Criterio
End If
If Vaixells.Recordset.EOF Then
Vaixells.Recordset.MoveFirst

Vaixells.Recordset.Find Criterio
If Vaixells.Recordset.EOF Then
Vaixells.Recordset.MoveLast
MsgBox ("No existeix aquet NIB"), vbCritical
End If
End If
End Sub

Private Sub MnuBuVaixell_Click()

Dim buscando As String, Criterio As String

buscando = InputBox("Escriu el nom del vaixell a buscar", "[BA-2 SOLUCIONES] - Servidor -")
If buscando = "" Then Exit Sub
Criterio = "fBuque Like '*" & buscando & "*'"

Vaixells.Recordset.MoveNext
If Not Vaixells.Recordset.EOF Then
Vaixells.Recordset.Find Criterio
End If
If Vaixells.Recordset.EOF Then
Vaixells.Recordset.MoveFirst

Vaixells.Recordset.Find Criterio
If Vaixells.Recordset.EOF Then
Vaixells.Recordset.MoveLast
MsgBox ("No existeix el nom de la embarcacio"), vbCritical
End If
End If
End Sub

Private Sub MnuBuVendedor_Click()
Dim buscando As String, Criterio As String

buscando = InputBox("Escriu el nom o cognoms a buscar", "[BA-2 SOLUCIONES] - Servidor -")
If buscando = "" Then Exit Sub
Criterio = "fvendedor Like '*" & buscando & "*'"

Vaixells.Recordset.MoveNext
If Not Vaixells.Recordset.EOF Then
Vaixells.Recordset.Find Criterio
End If
If Vaixells.Recordset.EOF Then
Vaixells.Recordset.MoveFirst

Vaixells.Recordset.Find Criterio
If Vaixells.Recordset.EOF Then
Vaixells.Recordset.MoveLast
MsgBox ("No existeix el vebedor a la base de dades"), vbCritical
End If
End If

End Sub

Private Sub MnuDeAnterior_Click()
Vaixells.Recordset.MovePrevious
If Vaixells.Recordset.BOF Then
Vaixells.Recordset.MoveFirst
End If
End Sub

Private Sub MnuDePrimer_Click()
Vaixells.Recordset.MoveFirst
End Sub

Private Sub MnuDeSiguiente_Click()
Vaixells.Recordset.MoveNext
If Vaixells.Recordset.EOF Then
Vaixells.Recordset.MoveFirst
End If
End Sub

Private Sub MnuDeUltimo_Click()
Vaixells.Recordset.MoveLast
End Sub

Private Sub MnuGeModificar_Click()


Dim buscando As String, Criterio As String

buscando = InputBox("Escriu número de expedient a buscar")
If buscando = "" Then Exit Sub
Criterio = "fVaixellId Like '" & buscando & "'"

Vaixells.Recordset.MoveNext
If Not Vaixells.Recordset.EOF Then
Vaixells.Recordset.Find Criterio
End If
If Vaixells.Recordset.EOF Then
Vaixells.Recordset.MoveFirst

Vaixells.Recordset.Find Criterio
If Vaixells.Recordset.EOF Then
Vaixells.Recordset.MoveLast
MsgBox ("No existeix el número de expedient"), vbCritical
End If
End If


MnuBuscar = False
MnuGestion = False
MnuDesplazamiento = False
MnuArchivo = False
MnuAyuda = False
Registros.BackColor = &HFF00FF
SSTab1.BackColor = &HFF00FF
Text22.BackColor = &HFF00FF
Text30.BackColor = &HFF00FF
Barco.Enabled = True
Gestio.Enabled = True
Data.Enabled = True
Foli.Enabled = True
Llista.Enabled = True
Matrícula.Enabled = True
Eslora.Enabled = True
Marca.Enabled = True
Intra_Fora.Enabled = True
Manga.Enabled = True
Tipo.Enabled = True
Gasolina_Diesel.Enabled = True
Puntal.Enabled = True
Motor.Enabled = True
HP.Enabled = True
RB.Enabled = True
Model.Enabled = True
Numero_Serie.Enabled = True
NIB.Enabled = True
SAI.Enabled = True
Navegabilidad.Enabled = True
RadioBat.Enabled = True
Inspeccion_Radio.Enabled = True
Despatx.Enabled = True
RadioHidr.Enabled = True
Extintors.Enabled = True
Balsa_Salvavidas.Enabled = True
Indicador.Enabled = True
Construcción.Enabled = True
Armador.Enabled = True
DNI_Armador.Enabled = True
AdreçaArmador.Enabled = True
CP_Armador.Enabled = True
Poblacion_Armador.Enabled = True
Provincia_Armador.Enabled = True
Tel1_Armador.Enabled = True
Tel2_Armador.Enabled = True
Fax_Armador.Enabled = True
Email_Armador.Enabled = True
Armador2.Enabled = True
Venedor.Enabled = True
DNI_Venedor.Enabled = True
Adreça_Venedor.Enabled = True
CP_Venedor.Enabled = True
Poblacio_Venedor.Enabled = True
Provincia_Venedor.Enabled = True
Tel1_Venedor.Enabled = True
Tel2_Venedor.Enabled = True
Fax_Venedor.Enabled = True
Email_Venedor.Enabled = True
Venedor2.Enabled = True
Notas.Enabled = True
Propietario1.Enabled = True
Propietario2.Enabled = True
Propietario3.Enabled = True
Propietario4.Enabled = True
DNI1.Enabled = True
DNI2.Enabled = True
DNI3.Enabled = True
DNI4.Enabled = True
Direccion1.Enabled = True
Direccion2.Enabled = True
Direccion3.Enabled = True
Direccion4.Enabled = True
CP1.Enabled = True
CP2.Enabled = True
CP3.Enabled = True
CP4.Enabled = True
Poblacion1.Enabled = True
Poblacion2.Enabled = True
Poblacion3.Enabled = True
Poblacion4.Enabled = True
Data1.Enabled = True
Data2.Enabled = True
Data3.Enabled = True
Data4.Enabled = True
Notas.Enabled = True
Grabar.Visible = True
Cancelar.Visible = True

End Sub

Private Sub MnuGeNuevo_Click()
MnuBuscar = False
MnuGestion = False
MnuDesplazamiento = False
MnuArchivo = False
MnuAyuda = False
Registros.BackColor = 255
SSTab1.BackColor = 255
Text22.BackColor = 255
Text30.BackColor = 255
Barco.Enabled = True
Gestio.Enabled = True
Data.Enabled = True
Foli.Enabled = True
Llista.Enabled = True
Matrícula.Enabled = True
Eslora.Enabled = True
Marca.Enabled = True
Intra_Fora.Enabled = True
Manga.Enabled = True
Tipo.Enabled = True
Gasolina_Diesel.Enabled = True
Puntal.Enabled = True
Motor.Enabled = True
HP.Enabled = True
RB.Enabled = True
Model.Enabled = True
Numero_Serie.Enabled = True
NIB.Enabled = True
SAI.Enabled = True
Navegabilidad.Enabled = True
RadioBat.Enabled = True
Inspeccion_Radio.Enabled = True
Despatx.Enabled = True
RadioHidr.Enabled = True
Extintors.Enabled = True
Balsa_Salvavidas.Enabled = True
Indicador.Enabled = True
Construcción.Enabled = True
Armador.Enabled = True
DNI_Armador.Enabled = True
AdreçaArmador.Enabled = True
CP_Armador.Enabled = True
Poblacion_Armador.Enabled = True
Provincia_Armador.Enabled = True
Tel1_Armador.Enabled = True
Tel2_Armador.Enabled = True
Fax_Armador.Enabled = True
Email_Armador.Enabled = True
Armador2.Enabled = True
Venedor.Enabled = True
DNI_Venedor.Enabled = True
Adreça_Venedor.Enabled = True
CP_Venedor.Enabled = True
Poblacio_Venedor.Enabled = True
Provincia_Venedor.Enabled = True
Tel1_Venedor.Enabled = True
Tel2_Venedor.Enabled = True
Fax_Venedor.Enabled = True
Email_Venedor.Enabled = True
Venedor2.Enabled = True
Notas.Enabled = True
Propietario1.Enabled = True
Propietario2.Enabled = True
Propietario3.Enabled = True
Propietario4.Enabled = True
DNI1.Enabled = True
DNI2.Enabled = True
DNI3.Enabled = True
DNI4.Enabled = True
Direccion1.Enabled = True
Direccion2.Enabled = True
Direccion3.Enabled = True
Direccion4.Enabled = True
CP1.Enabled = True
CP2.Enabled = True
CP3.Enabled = True
CP4.Enabled = True
Poblacion1.Enabled = True
Poblacion2.Enabled = True
Poblacion3.Enabled = True
Poblacion4.Enabled = True
Data1.Enabled = True
Data2.Enabled = True
Data3.Enabled = True
Data4.Enabled = True
Notas.Enabled = True
Barco.SetFocus
Grabar.Visible = True
Cancelar.Visible = True
Vaixells.Recordset.AddNew

End Sub

Private Sub MnuImExpedientes_Click()
Expedientes.PrintReport True

End Sub

Private Sub MnuReindexar_Click()
Picture1.Visible = True
Picture1.ForeColor = RGB(100, 0, 0)
For i = 0 To 100
actualizaprogress Picture1, i
Call pausa
Next i
Vaixells.Recordset.Requery
Vaixells.Recordset.MoveLast
Picture1.Visible = False

End Sub

Private Sub pausa()
Dim controlar
Dim comenzar

comenzar = Timer
Do Until controlar >= comenzar + 0.01
controlar = Timer
DoEvents
Loop

End Sub