Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Access » Impresión Datamax y/ó Zebra

Access - Impresión Datamax y/ó Zebra

Volver
Nuevo Tema
<<>>
 
Vista:

Impresión Datamax y/ó Zebra

Publicado por John (1 intervención) el 15/05/2002 22:33:44
Estoy intentando imprimir etiquetas de codigo de barras en impresoras Datamax y/o Zebra desde access 97 a través del puerto COM2 utilizando la instrucción Open, no generar error ni sale nada. Alguno de uds. conoce otra forma de hacerlo.

Gracias por su colaboración.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alejandro

Impresión Datamax y/ó Zebra

Publicado por Alejandro (4142 intervenciones) el 21/04/2023 18:18:07
Para imprimir etiquetas de código de barras en impresoras Datamax y Zebra desde Access 97 a través del puerto COM2, puedes utilizar las API de Windows para imprimir en la impresora. A continuación te proporciono un ejemplo de código para imprimir en una impresora conectada al puerto COM2:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Option Compare Database
Option Explicit
 
Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" _
(ByVal pPrinterName As String, phPrinter As Long, ByVal pDefault As Long) As Long
 
Private Declare Function ClosePrinter Lib "winspool.drv" _
(ByVal hPrinter As Long) As Long
 
Private Declare Function StartDocPrinter Lib "winspool.drv" Alias "StartDocPrinterA" _
(ByVal hPrinter As Long, ByVal Level As Long, pDocInfo As DOCINFO) As Long
 
Private Declare Function EndDocPrinter Lib "winspool.drv" _
(ByVal hPrinter As Long) As Long
 
Private Declare Function StartPagePrinter Lib "winspool.drv" _
(ByVal hPrinter As Long) As Long
 
Private Declare Function EndPagePrinter Lib "winspool.drv" _
(ByVal hPrinter As Long) As Long
 
Private Declare Function WritePrinter Lib "winspool.drv" _
(ByVal hPrinter As Long, pBuf As Any, ByVal cdBuf As Long, pcWritten As Long) As Long
 
Private Type DOCINFO
    pDocName As String
    pOutputFile As String
    pDatatype As String
End Type
 
Public Sub ImprimirEtiqueta(ByVal strImpresora As String, ByVal strCodigoBarras As String)
    Dim hPrinter As Long
    Dim docInfo As DOCINFO
    Dim lngWritten As Long
    Dim strTexto As String
 
    ' Abrir la impresora
    If OpenPrinter(strImpresora, hPrinter, 0) <> 0 Then
        ' Inicializar la estructura DOCINFO
        docInfo.pDocName = "Etiqueta"
        docInfo.pOutputFile = vbNullString
        docInfo.pDatatype = "RAW"
        ' Iniciar el documento
        StartDocPrinter hPrinter, 1, docInfo
        ' Iniciar la página
        StartPagePrinter hPrinter
        ' Imprimir el código de barras
        strTexto = Chr(27) & "A" & Chr(2) & Chr(27) & "H" & Chr(100) & _
            Chr(27) & "F" & Chr(0) & strCodigoBarras & vbCrLf
        WritePrinter hPrinter, ByVal strTexto, Len(strTexto), lngWritten
        ' Finalizar la página
        EndPagePrinter hPrinter
        ' Finalizar el documento
        EndDocPrinter hPrinter
        ' Cerrar la impresora
        ClosePrinter hPrinter
    End If
End Sub

Este ejemplo utiliza las funciones API de Windows para abrir la impresora, iniciar el documento, iniciar la página, imprimir el código de barras y finalmente cerrar la impresora. Puedes modificar el código para que se ajuste a tus necesidades específicas, como la configuración de la impresora o la generación del código de barras.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar