Access - BUFFER IMPRESORA

 
Vista:

BUFFER IMPRESORA

Publicado por Miguel Ángel (18 intervenciones) el 14/07/2003 11:23:06
Hola a todos,
Resulta que tengo un bucle que lo que hace es enviar una tacada de informes a la impresora.
Necesito detectar si el buffer de la impresora está lleno para que no se cuelgue a la hora de enviar un informe.
¿Sabeis el código VBA para ver si el buffer de la impresora está lleno?

Saludos y gracias
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

BUFFER IMPRESORA

Publicado por Alejandro (4142 intervenciones) el 02/05/2023 17:32:27
Para verificar si el buffer de impresión está lleno, puede usar la función `GetPrinter` para obtener información sobre la impresora, incluyendo el tamaño del buffer de impresión y la cantidad de bytes actualmente en el buffer. Luego, puede comparar la cantidad de bytes en el buffer con el tamaño máximo del buffer para determinar si está lleno o no.

Aquí hay un ejemplo de código VBA que utiliza la función `GetPrinter` para verificar el estado del buffer de impresión:

1
2
3
4
5
6
7
8
9
10
11
12
Dim pr As Printer
Dim bufSize As Long
Dim bufStat As Long
 
Set pr = Application.Printer
 
bufSize = pr.DeviceCapabilities(vbDC_BINS, vbDC_BINNAMES)
bufStat = pr.DeviceCapabilities(vbDC_STAT, vbDC_BINNAMES)
 
If bufStat = bufSize Then
    MsgBox "El buffer de impresión está lleno."
End If

En este ejemplo, primero se obtiene un objeto `Printer` que representa la impresora activa. Luego, se usa `DeviceCapabilities` para obtener el tamaño máximo del buffer de impresión (`bufSize`) y la cantidad actual de bytes en el buffer (`bufStat`). Si `bufStat` es igual a `bufSize`, se muestra un mensaje indicando que el buffer de impresión está lleno.

Espero que esto ayude.
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