Autor Tema: Ayuda-necesito Crear Un Docemento Word Desde Vb (Leído 1135 veces)

serbc25 · « **en:** Sábado 10 de Febrero de 2007, 20:34 »

Hola a todos:

Tengo que hace run proyecto en vb que cuando pinche sobre el boton imprimir
me abra word con unos determiandos campos de la bd que no existen en el
formulario

Ejemplo

Formulario

ID: 4
Nombre: asda

Documento:

ID=4
Nombre=adas
Edad=asdas
Direccion=asdas

Tengo dudas si crear un documento con campos combinados o con marcas y lo
que no se es la instruccion par abrir el documento Word desde VB

Muchas gracias por adelantado

senzao18

Creo que la clase Process podria ayudarte

System.Diagnostics.Process

Código: Text

 
 En el siguiente ejemplo se utiliza una instancia de la clase Process para iniciar un proceso.
[Visual Basic] 
Imports System
Imports System.Diagnostics
Imports System.ComponentModel
 
 
Namespace MyProcessSample
    _
   '/ &#60;summary&#62;
   '/ Shell for the sample.
   '/ &#60;/summary&#62;
   Public Class MyProcess
      ' These are the Win32 error code for file not found or access denied.
      Private ERROR_FILE_NOT_FOUND As Integer = 2
      Private ERROR_ACCESS_DENIED As Integer = 5
      
      
      '/ &#60;summary&#62;
      '/ Prints a file with a .doc extension.
      '/ &#60;/summary&#62;
      Public Sub PrintDoc()
         Dim myProcess As New Process()
         
         Try
            ' Get the path that stores user documents.
            Dim myDocumentsPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal)
            
            myProcess.StartInfo.FileName = myDocumentsPath + &#34;&#092;MyFile.doc&#34;
            myProcess.StartInfo.Verb = &#34;Print&#34;
            myProcess.StartInfo.CreateNoWindow = True
            myProcess.Start()
         Catch e As Win32Exception
            If e.NativeErrorCode = ERROR_FILE_NOT_FOUND Then
               Console.WriteLine((e.Message + &#34;. Check the path.&#34;))
            
            Else
               If e.NativeErrorCode = ERROR_ACCESS_DENIED Then
                  ' Note that if your word processor might generate exceptions
                  ' such as this, which are handled first.
                  Console.WriteLine((e.Message + &#34;. You do not have permission to print this file.&#34;))
               End If
            End If
         End Try
      End Sub 'PrintDoc
      
      
      Public Shared Sub Main()
         Dim myProcess As New MyProcess()
         myProcess.PrintDoc()
      End Sub 'Main
   End Class 'MyProcess
End Namespace 'MyProcessSample
 
 
 
 

SoloCodigo

Autor Tema: Ayuda-necesito Crear Un Docemento Word Desde Vb (Leído 1135 veces)

serbc25

Ayuda-necesito Crear Un Docemento Word Desde Vb

senzao18

Re: Ayuda-necesito Crear Un Docemento Word Desde Vb