Impresión de etiquetas visual studio 2005

[EdwinCO]

HOLA A TODOS.
ACTUALMENTE, TENGO UN PROGRAMA QUE UTILIZO PARA IMPRIMIR ETIQUETAS EN VARIAS IMPRESORAS TÉRMICAS, Y TODO FUNCIONABA BIEN HASTA QUE EMPEZARON A LLEGAR ORDENADORES CON SO W7, AHORA NO ME IMPRIME PORQUE NO ME GENERA EL HANDLE DE IMPRESIÓN.

PARA ELLO UTILIZO:

Código:

Const GENERIC_WRITE As Int32 = &H40000000
    Const OPEN_EXISTING As Int32 = 3

    Public Declare Auto Function CreateFile Lib "kernel32.dll" _
    (ByVal lpFileName As String, ByVal dwDesiredAccess As Integer, _
    ByVal dwShareMode As Integer, ByVal lpSecurityAttributes As IntPtr, _
    ByVal dwCreationDisposition As Integer, _
    ByVal dwFlagsAndAttributes As Integer, ByVal hTemplateFile As IntPtr) As IntPtr

    Public Function GetStreamWriter(ByVal port As String) As StreamWriter
        Dim Continua As Boolean = False
        Dim Cont As Integer
        Do While Continua = False
            Try
                Dim hFich As IntPtr = CreateFile("\\PC\impresora", GENERIC_WRITE, 0, IntPtr.Zero, OPEN_EXISTING, 0, IntPtr.Zero)
                Dim stream As New FileStream(hFich, FileAccess.Write)
                Dim writer As New StreamWriter(stream)
                Continua = True
                Return writer
            Catch ex As Exception
                    Exit Do
            End Try
        Loop
    End Function

EL ERROR SALE EN
Dim stream As New FileStream(hFich, FileAccess.Write)
AL SER hFich DE VALOR -1.

SI ALGUIEN PUEDE ECHARME UN CABLE LO AGRADECERÍA.....

UN SALUDO

[gedarufi]

Has probado con el objeto PrintDocument?

[EdwinCO]

Gracias por responder.
No lo he utilizado porque envío directamente al puerto de la impresora el código necesario para imprimir la etiqueta.