Visual Basic - Imprimir con datareport en visual basic6 con bd en acces

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Imprimir con datareport en visual basic6 con bd en acces

Publicado por Esteban (5 intervenciones) el 16/02/2017 15:53:21
Estoy trabajando en un proyecto para poder emitir unos certificados de acuerdo a los datos que muestra la busqueda, con print report, pero no puedo lograrlo, primero debo decirles no soy programador estoy aprendiendo, si me pueden brindar una mano les voy a agradecer, adjunto todo el proyecto para que lo vean
SAlludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.922
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir con datareport en visual basic6 con bd en acces

Publicado por Andres Leonardo (1739 intervenciones) el 16/02/2017 18:08:11
En el boton imprimir coloica esto

Donde el recordset debe ser el registor que tienes en pantalla.

1
2
Set DataReport1.DataSource = Adodc1.Recordset
    DataReport1.Show
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Imprimir con datareport en visual basic6 con bd en acces

Publicado por Esteban (5 intervenciones) el 16/02/2017 18:14:55
Muchas Gracias por tu contestastacion, ahora me sale el ancho del informe es mayor que el ancho del papel,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Imprimir con datareport en visual basic6 con bd en acces

Publicado por Esteban (5 intervenciones) el 16/02/2017 18:32:54
Ya esta resuelto estaba mal el ancho del datareport, una ultima consulta, no me imprime el resultado de la busqueda si no de todo lo que esta en la base de datos

datareport
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.922
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir con datareport en visual basic6 con bd en acces

Publicado por Andres Leonardo (1739 intervenciones) el 16/02/2017 19:15:40
Eso es lo que te queria decir...

Debes hacer que en el recordset solo este el registro actual o de la busqueda

**En ADO .... yo hago un select especifico... esto tendras que que realizarlo por que no se como son las sentencias

Espero que con esto te funcione...

Cualquier duda me encantara ayudarte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil

Imprimir con datareport en visual basic6 con bd en acces

Publicado por Esteban (5 intervenciones) el 16/02/2017 19:37:24
Te copio el codigo por que estoy muy perdido

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
 
End Sub
 
Private Sub Command2_Click()
Adodc1.Recordset.Update
End Sub
 
Private Sub Command3_Click()
Adodc1.Recordset.Delete
End Sub
 
Private Sub Command4_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MovePrevious
End If
 
 
End Sub
 
Private Sub Command5_Click()
Dim buscar As String, criterio As String
buscar = InputBox("POR FAVOR INGRESE EL NUMERO DE DNI", "busqueda por nombre", vbQuestion)
If buscar = "" Then Exit Sub
criterio = "DNI like '*" & buscar & "*'"
Adodc1.Recordset.MoveNext
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.Find criterio
End If
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find criterio
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
respuesta = MsgBox("NO EXISTEN REGISTROS DIGITALIZADOS DE ESE DNI", vbCritical)
End If
End If
End Sub
 
Private Sub Command6_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveNext
 
End If
End Sub
 
 
Private Sub IMPRIMIR_Click()
Set DataReport1.DataSource = Adodc1.Recordset
 
    DataReport1.Show
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Imprimir con datareport en visual basic6 con bd en acces

Publicado por Esteban (5 intervenciones) el 16/02/2017 22:24:20
Alguien que me pueda iluminar?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.922
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir con datareport en visual basic6 con bd en acces

Publicado por Andres Leonardo (1739 intervenciones) el 16/02/2017 23:47:38
Lo que pasa es que.. yo se con ADO generar un registro y volcarlo

Aqui debes colocar algo que el recordset sea uno

1
2
3
4
Private Sub IMPRIMIR_Click()
Set DataReport1.DataSource = Adodc1.Recordset
DataReport1.Show
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar