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
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
- Option Explicit
-
-
-
-
-
- Private Sub Command1_Click()
- Const FILTRO_ARCHIVOS As String = "Archivos de Word|*.doc|" & _
- "Archivos de Excel|*.xls|" & _
- "Todos los archivos|*.*"
-
- With CommonDialog1
-
- .DialogTitle = " Seleccionar documento "
- .Filter = FILTRO_ARCHIVOS
-
- .ShowOpen
-
- If .FileName = vbNullString Then Exit Sub
-
- Me.Caption = .FileName
-
-
- OLE1.CreateLink .FileName
-
- End With
- End Sub
-
-
- Private Sub Command2_Click()
- OLE1.Object.ActiveSheet.PrintOut Copies:=1, Collate:=True
- End Sub
-
-
-
- Private Sub Form_Load()
-
-
- OLE1.DisplayType = 0
-
- Command1.Caption = " Incrustar en OLE"
- Command2.Caption = " Imprimir el documento "
-
- End Sub
|
