Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Imprimir en excel desde vb 6.0

Estas en el tema de Imprimir en excel desde vb 6.0 en el foro de Visual Basic clásico en Foros del Web. Estimados tengo un formulario en el cual envio todos los datos quje quiero imprimir desde un data grid con un chek pero al imprimir solo ...
  #1 (permalink)  
Antiguo 24/09/2014, 10:47
 
Fecha de Ingreso: enero-2012
Mensajes: 158
Antigüedad: 8 años, 4 meses
Puntos: 1
Información Imprimir en excel desde vb 6.0

Estimados tengo un formulario en el cual envio todos los datos quje quiero imprimir desde un data grid con un chek
pero al imprimir solo me muestra 3 impresiones y no todas :)
este es el codigo
Código vb:
Ver original
  1. Public oRs As New ADODB.Recordset
  2.  
  3. 'Public Opcion As String
  4.  
  5. Private Sub cmdCancelar_Click()
  6.     Unload Me
  7. End Sub
  8.  
  9. Private Sub cmdImprimir_Click()
  10. On Error GoTo SALTO_ERROR
  11. '
  12. '    Dim oo As Object
  13. '    Dim Ruta As String
  14. '    Dim strSQL As String
  15. '    Dim Imprimir As String
  16. '    Dim sRutaLogo As String
  17.    
  18.     Dim oo As Object
  19.     Dim Ruta As String
  20.     Dim strSQL As String
  21.     Dim Imprimir As String
  22.     Dim sRutaLogo As String
  23.    
  24.    
  25.     Set oo = CreateObject("excel.application")
  26.    
  27.     strSQL = "SELECT Ruta_Logo = ISNULL(Ruta_Logo, '') From SEGURIDAD..SEG_EMPRESAS WHERE Cod_Empresa = '" & vemp & "'"
  28.  
  29.     sRutaLogo = DevuelveCampo(strSQL, cConnect)
  30.  
  31.    
  32.     If MsgBox("Desea imprimir directamente...", vbYesNo + vbQuestion, "Impresion") = vbYes Then
  33.         Imprimir = "1"
  34.     Else
  35.         Imprimir = "0"
  36.     End If
  37.    
  38.    
  39.     oRs.MoveFirst
  40.     Do While Not oRs.EOF
  41.        
  42.         If oRs("CHK") = True Then
  43.        
  44.          If CheckListaMaterial.Value = Checked Then
  45.                 Ruta = vRuta & "\RptFichaTecnica.XLT"
  46.    
  47.                 Set oo = CreateObject("excel.application")
  48.                 oo.Workbooks.Open Ruta
  49.                 If Imprimir = 0 Then
  50.                     oo.Visible = True
  51.                 End If
  52.                 oo.DisplayAlerts = False
  53.                
  54.                 oo.Run "Reporte", 1, "001", oRs("cod_ordpro"), vemp, Left(oRs("ESTILOP"), 5), Left(oRs("VERSION"), 2), cConnect, sRutaLogo, Imprimir
  55.                 Set oo = Nothing
  56.             End If
  57.        
  58.            
  59.             If CheckHojaConstruccion.Value = Checked Then
  60.                 Ruta = vRuta & "\RptFichaTecnicaPrueba.XLT"
  61.    
  62.                 Set oo = CreateObject("excel.application")
  63.                 oo.Workbooks.Open Ruta
  64.                 oo.Visible = True
  65.                 oo.DisplayAlerts = False
  66.                
  67.                 oo.Run "Reporte", 1, "001", oRs("cod_ordpro"), vemp, Left(oRs("ESTILOP"), 5), Left(oRs("VERSION"), 2), cConnect, sRutaLogo, Imprimir
  68.                 Set oo = Nothing
  69.             End If
  70.        
  71.             If CheckHojaArtes.Value = Checked Then
  72.                 Ruta = vRuta & "\RptFichaTecnicaArtes.XLT"
  73.    
  74.                 Set oo = CreateObject("excel.application")
  75.                 oo.Workbooks.Open Ruta
  76.                 oo.Visible = True
  77.                 oo.DisplayAlerts = False
  78.                
  79.                 oo.Run "Reporte", 1, "001", oRs("cod_ordpro"), vemp, Left(oRs("ESTILOP"), 5), Left(oRs("VERSION"), 2), cConnect, sRutaLogo, Imprimir
  80.                 Set oo = Nothing
  81.             End If
  82.            
  83.         End If
  84.        
  85.        
  86.         oRs.MoveNext
  87.     Loop
  88.    
  89.    
  90.    
  91. Exit Sub
  92.    
  93. SALTO_ERROR:
  94.     MsgBox Err.Description, vbCritical, Me.Caption
  95.    
  96.  
  97. End Sub

Etiquetas: excel, report, sql, vb
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta

SíEste tema le ha gustado a 1 personas




La zona horaria es GMT -6. Ahora son las 18:36.