Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

361 - Imprimir documento de Word

Simple ejemplo para imprimir un documento de Microsoft Word desde visual basic

Para imprimir se usa el método Printout del documento activo

Ejemplo

un CommandButton en el formulario
y a la función llamada Imprimir, pasarle el path del .doc.

Código fuente en un formulario

Option Explicit Function Imprimir(Path As String, _ Optional Visible_Word As Boolean = True) As Boolean ' variable de objeto para acceder al Word Dim Obj_Word As Object ' crea el objeto Set Obj_Word = CreateObject("Word.Application") ' Visible / No visible If Visible_Word Then Obj_Word.Visible = True Else Obj_Word.Visible = False End If 'Abre el documento Obj_Word.Documents.Open Path ' Imprime el documento activo con Printout Obj_Word.ActiveDocument.Printout ' Cierra el documento Obj_Word.Quit ' Elimina la referencia Set Obj_Word = Nothing ' retorno If Err.Number = 0 Then Imprimir = True End If Exit Function Error_Function: ' error MsgBox Err.Description On Error Resume Next Set Obj_Word = Nothing Obj_Word.Quit End Function ' CommandButton que imprime '''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Command1_Click() Dim ret As Boolean ' le pasa el documento de word que se va a imprimir ret = Imprimir("c:\archivo_word.doc", False) If ret Then MsgBox "Ok", vbInformation End If End Sub Private Sub Form_Load() Command1.Caption = " Imprimir Documento " End Sub

Recursos Visual basic 6.0 - Enlaces relacionados

Buscar en Recursos vb