ProgramasVb6
  Ole
 

Simple ejemplo que permite vincular un documento para visualizarlo en el contenedor OLE, y también poder imprimirlo

 

La rutina necesita dos

  • CommandButton
  • un control Common Dialog
  • y un control OLE llamado OLE1

 

Al presionar Command1 se selecciona el archivo y carga el documento, El command2 es para imprimir el mismo.

 

En la imagen se cargó un documento de word en el OLE

vista del contenedor OLe y el documento cargado

 

Nota: para expandir ( hacer un Autosize del OLE igual al tamaño del documento) utilizar la propiedad SizeMode con el valor 2. No se si tendrá alguna forma de colocarle barras de scroll en caso que sea muy grande el documento. Lo que se me ocurre que se podría hacer es colocarlo dentro de un picturebox con barras de scroll para solucionar lo dicho

 

Código fuente en el formulario

  1. Option Explicit  
  2.   
  3. '***************************************************************************  
  4. '*  Ejemplo del control OLE de visual basic  
  5. '***************************************************************************  
  6.   
  7. Private Sub Command1_Click()  
  8. Const FILTRO_ARCHIVOS As String = "Archivos de Word|*.doc|" & _  
  9.                                   "Archivos de Excel|*.xls|" & _  
  10.                                   "Todos los archivos|*.*"  
  11.       
  12. With CommonDialog1  
  13.   
  14.     .DialogTitle = " Seleccionar documento "  
  15.     .Filter = FILTRO_ARCHIVOS  
  16.       
  17.     .ShowOpen  
  18.       
  19.     If .FileName = vbNullString Then Exit Sub  
  20.       
  21.     Me.Caption = .FileName  
  22.       
  23.     'Carga el documento en el objeto OLE  
  24.     OLE1.CreateLink .FileName  
  25.       
  26. End With  
  27. End Sub  
  28.   
  29. ' Imprime el documento vinculado  
  30. Private Sub Command2_Click()  
  31. OLE1.Object.ActiveSheet.PrintOut Copies:=1, Collate:=True  
  32. End Sub  
  33.   
  34.   
  35.   
  36. Private Sub Form_Load()  
  37.   
  38. 'Muestra el contenido, 1 muestra el ícono en el OLE  
  39. OLE1.DisplayType = 0  
  40.   
  41. Command1.Caption = " Incrustar en OLE"  
  42. Command2.Caption = " Imprimir el documento "  
  43.   
  44. End Sub  

 

 
  ProgramasVb Copyright. 2011-2012 All Right Reserved  
 
=> ¿Desea una página web gratis? Pues, haz clic aquí! <=