Imprimer X pagina TXT desde Access

18/07/2003 - 13:02 por Antonio Macias | Informe spam
Hola a todos

Se que hay mucha informacion ya estuve buscando pero no
la encuentro, mi pregunta es como abro un archivo .TXT
desde access para imprimirlo en donde solo me imprima 1
pagina y no se abra el asistente de impresion de windows

Este es mi codigo

Dim MyOrder As String
Dim MyClient As String
Dim MyFile As String

[Impreso] = True

MyOrder = Forms![Pedidos]![IdPedido]
MyClient = Forms![Pedidos]![Destinatario]

If IsNull([MyOrder]) Or IsNull([MyClient]) Then

MsgBox "This Order is empty, The program can't print
invoice"
End

Else

MyFile = "C:\Documents and Settings\Antonio Macias\Mis
documentos\" & _
"Mi Ebay\My Mails\Enviados\Costo Envio\" & "Order_" &
MyOrder & ".txt"

DoCmd.SetWarnings False

DoCmd.OutputTo acOutputReport, "Invoice", acFormatTXT,
MyFile, True
DoCmd.Close acReport, "Invoice"

DoCmd.SetWarnings True


Gracias
Antonio Macias

Preguntas similare

Leer las respuestas

#1 Marcos Campos A.
18/07/2003 - 11:06 | Informe spam
Busca en la ayuda el metodo Print

Saludos

MCA

"Antonio Macias" escribió en el mensaje
news:096501c34d1c$06bb3120$
Hola a todos

Se que hay mucha informacion ya estuve buscando pero no
la encuentro, mi pregunta es como abro un archivo .TXT
desde access para imprimirlo en donde solo me imprima 1
pagina y no se abra el asistente de impresion de windows

Este es mi codigo

Dim MyOrder As String
Dim MyClient As String
Dim MyFile As String

[Impreso] = True

MyOrder = Forms![Pedidos]![IdPedido]
MyClient = Forms![Pedidos]![Destinatario]

If IsNull([MyOrder]) Or IsNull([MyClient]) Then

MsgBox "This Order is empty, The program can't print
invoice"
End

Else

MyFile = "C:\Documents and Settings\Antonio Macias\Mis
documentos\" & _
"Mi Ebay\My Mails\Enviados\Costo Envio\" & "Order_" &
MyOrder & ".txt"

DoCmd.SetWarnings False

DoCmd.OutputTo acOutputReport, "Invoice", acFormatTXT,
MyFile, True
DoCmd.Close acReport, "Invoice"

DoCmd.SetWarnings True


Gracias
Antonio Macias
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida