• Viernes 29 de Marzo de 2024, 09:49

Autor Tema:  Impresion word  (Leído 2294 veces)

MarioChep

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Impresion word
« en: Jueves 25 de Abril de 2013, 16:35 »
0
Estimados amigos

tengo el siguiente codigo que toma un word que esta en el archivo de recursos de mi aplicacion, pero no quiero que tenga la ruta completa..

quiero que sea de manera corta(si es que existe)

ademas quiero que esto se imprima en formato A4

y que segun la cantidad que este en el NumericUpDown

sea la cantidad de impresiones.

saludos a todos.


Código: [Seleccionar]
PrivateSub btnImprimirFormato_Click(sender As System.Object, e As System.EventArgs)Handles btnImprimirFormato.Click If nudCantidad.Value =0Then MessageBox.Show("Debe seleccionar una cantidad mayor a CERO","Error", MessageBoxButtons.OK, MessageBoxIcon.Information) nudCantidad.Focus()ElseDim ret AsBoolean' le pasa el documento de word que se va a imprimir   ret = Imprimir("C:\Users\MarioChep-Thinks\Desktop\Compilacion 5 dias\Interfaz de Prueba DLL LetScan\Resources\HOJA_RESPUESTA FINAL.docx",False)If ret Then MsgBox("Ok", vbInformation)EndIfEndIfEndSubPublicFunction Imprimir(Path AsString,Optional Visible_Word AsBoolean=True)AsBoolean' variable de objeto para acceder al Word  Dim Obj_Word AsObject' crea el objeto   Obj_Word = CreateObject("Word.Application")' Visible / No visible  If Visible_Word Then Obj_Word.Visible =TrueElse Obj_Word.Visible =FalseEndIf'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   Obj_Word =Nothing' retorno  If Err.Number =0Then Imprimir =TrueEndIfExitFunction Error_Function:' error   MsgBox(Err.Description)OnErrorResumeNext Obj_Word =Nothing Obj_Word.Quit()EndFunction[/size][/font]

MarioChep

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Re:Impresion word
« Respuesta #1 en: Jueves 25 de Abril de 2013, 16:37 »
0
Private Sub btnImprimirFormato_Click(sender As System.Object, e As System.EventArgs) Handles btnImprimirFormato.Click
        If nudCantidad.Value = 0 Then
            MessageBox.Show("Debe seleccionar una cantidad mayor a CERO", "Error", MessageBoxButtons.OK, MessageBoxIcon.Information)
            nudCantidad.Focus()
        Else

            Dim ret As Boolean
            ' le pasa el documento de word que se va a imprimir 
            ret = Imprimir("C:\Users\MarioChep-Thinks\Desktop\Compilacion 5 dias\Interfaz de Prueba DLL LetScan\Resources\HOJA_RESPUESTA FINAL.docx", False)
            If ret Then
                MsgBox("Ok", vbInformation)
            End If
        End If

    End Sub

    Public 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 
        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 
        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

        Obj_Word = Nothing
        Obj_Word.Quit()

    End Function

.net

  • Miembro MUY activo
  • ***
  • Mensajes: 181
  • Nacionalidad: mx
    • Ver Perfil
Re:Impresion word
« Respuesta #2 en: Viernes 3 de Mayo de 2013, 16:25 »
0
La lógica lleva a más lógica

Apoyo a un mundo OPEN SOURCE!!!

Eso si es el paraíso