RE:Data Report para Victor MR
Hola muchas gracias por contestar, la verdad es que no tengo mucha idea de esto, lo mejor que se me ocurre es mandarte el codigo que he puesto cuando imprimo. De esta forma al darle si es la primera vez (es decir, que la tabla este vacia, que no tenga ningun registro pues salta error, normal!!) y si es la segunda vez sale bien normalmente, yo creo que tienes razon en lo de refrescar pero no se muy bien como hacerlo. Te mando el codigo por si lo quieres mirar. Muchas Gracias!!!
Y otro problema que tenemos es el imprimir el codigo de barras que se genera con el numero de PC, tengo una funcion que consegui por ahi en un ejemplo en el formulario me la genera bien pero claro en en la imagen del datareport no se como sacarla. Muchas Gracias otra vez.
Private Sub Cmd_CnImprimir_Click()
RecImprimir.Open "select * from TImpresion", Conex, adOpenKeyset, adLockOptimistic
RecImprimir.Delete
RecImprimir.MovePrevious
RecImprimir.MoveNext
RecImprimir.AddNew
RecImprimir.Fields("codigo") = 1
RecImprimir.Fields("fecha") = Txt_codMontaje(1).Text
RecImprimir.Fields("estado") = Cbo_estado.List(Cbo_estado.ListIndex)
RecImprimir.Fields("CIF") = Text1.Text
RecImprimir.Fields("codigoCliente") = Text2.Text
RecImprimir.Fields("cliente") = Text3.Text
RecImprimir.Fields("direccion") = Text4.Text
RecImprimir.Fields("provincia") = Text5.Text
RecImprimir.Fields("codpostal") = Text6.Text
RecImprimir.Fields("telefono") = Text7.Text
RecImprimir.Fields("comercial") = Cbo_comercial.List(Cbo_comercial.ListIndex)
RecImprimir.Fields("tecnico") = Cbo_tecnico.List(Cbo_tecnico.ListIndex)
RecImprimir.Fields("pcSerie") = Txt_codMontaje(4).Text
RecImprimir.Fields("externo1") = txt_externo(0).Text
RecImprimir.Fields("externo2") = txt_externo(1).Text
RecImprimir.Fields("externo3") = txt_externo(2).Text
RecImprimir.Fields("serExterno1") = txt_serExterno(0).Text
RecImprimir.Fields("serExterno2") = txt_serExterno(1).Text
RecImprimir.Fields("serExterno3") = txt_serExterno(2).Text
RecImprimir.Fields("precio") = Txt_codMontaje(6).Text
RecImprimir.Fields("microprocesador") = Dbo_Componentes(0).BoundText
RecImprimir.Fields("placaBase") = Dbo_Componentes(1).BoundText
RecImprimir.Fields("memoria") = Dbo_Componentes(2).BoundText
RecImprimir.Fields("discoDuro") = Dbo_Componentes(3).BoundText
RecImprimir.Fields("sistemaOperativo") = Dbo_Componentes(4).BoundText
RecImprimir.Fields("opticas1") = Dbo_Componentes(5).BoundText
RecImprimir.Fields("opticas2") = Dbo_Componentes(6).BoundText
RecImprimir.Fields("removibles1") = Dbo_Componentes(7).BoundText
RecImprimir.Fields("removibles2") = Dbo_Componentes(8).BoundText
RecImprimir.Fields("perifericos1") = Dbo_Componentes(9).BoundText
RecImprimir.Fields("perifericos2") = Dbo_Componentes(10).BoundText
RecImprimir.Fields("caja") = Dbo_Componentes(11).BoundText
RecImprimir.Fields("adicionales1") = Dbo_Componentes(12).BoundText
RecImprimir.Fields("adicionales2") = Dbo_Componentes(13).BoundText
RecImprimir.Fields("adicionales3") = Dbo_Componentes(14).BoundText
RecImprimir.Fields("observaciones") = Txt_codMontaje(7).Text
RecImprimir.Fields("incidencias") = Txt_codMontaje(8).Text
RecImprimir.Fields("ID_Imagen") = Text6.Text
Call DrawBarcode(Txt_codMontaje(4), DataReport1.Sections.Item("CmConsultasImpresion_Detail").Controls("rptImage").Picture)
RecImprimir.Update
RecImprimir.MoveLast
DeArticulos.CmConsultasImpresion
DataReport1.Show
End Sub