cantidad de copias
Publicado por jmasarg (15 intervenciones) el 13/02/2005 16:30:09
Soy novato y armé una base de datos modificando la de ejemplo Neptuno. En el form pedidos aparece un boton IMPRIMIR con el cual se imprime 1 copia segun este código:
Sub ImprimirFactura_Click()
' Este código está creado por el Asistente para botones de comando.
On Error GoTo Err_ImprimirFactura_Click
Dim cadNombreDocumento As String
cadNombreDocumento = "Factura"
' Informe Imprimir Factura, usa la consulta Fitro Facturas para imprimir la
' factura del pedido actual.
DoCmd.OpenReport cadNombreDocumento, acViewNormal, "Filtro facturas"
como yo necesito que sean 3 copias lo que hice fue repetir la sentencia 3 veces, funciona pero lo hace mas lento, me podrian decir que debiera agregar para que sea una sola orden que imprima 3 copias directamente.
Gracias
Sub ImprimirFactura_Click()
' Este código está creado por el Asistente para botones de comando.
On Error GoTo Err_ImprimirFactura_Click
Dim cadNombreDocumento As String
cadNombreDocumento = "Factura"
' Informe Imprimir Factura, usa la consulta Fitro Facturas para imprimir la
' factura del pedido actual.
DoCmd.OpenReport cadNombreDocumento, acViewNormal, "Filtro facturas"
como yo necesito que sean 3 copias lo que hice fue repetir la sentencia 3 veces, funciona pero lo hace mas lento, me podrian decir que debiera agregar para que sea una sola orden que imprima 3 copias directamente.
Gracias
Valora esta pregunta


0