FoxPro/Visual FoxPro - Imprimir con varias impresoras de forma predeterminada

 
Vista:
sin imagen de perfil

Imprimir con varias impresoras de forma predeterminada

Publicado por Josam (20 intervenciones) el 26/03/2016 14:36:48
Buenos dias,
Tengo un programa para imprimir facturas, en el cual las facturas y boletas deben imprimirse en la impresora epson FX-890 y los Tikets deben imprimirse en la impresora Tiketera.

¿Habra alguna de forma de poner en una tabla lo siguiente?

Para boletas --> Epson fx-890
Para Facturas ---> Epson fx-890
Para tikets -------> Star II termica
Para reportes ---> Hp Laserjet 1102w

de tal forma que se configure una sola vez las imprsoras y de ahi en adelante salga por defecto
la impresion segun dichos parametros.
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
sin imagen de perfil

Imprimir con varias impresoras de forma predeterminada

Publicado por Luiz Alexandre (58 intervenciones) el 26/03/2016 15:44:31
Abaixo um pequeno exemplo.

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
#DEFINE RELAT_BOLETO 1
#DEFINE RELAT_FATURA 2
#DEFINE RELAT_TICKET 3
#DEFINE RELAT_RELATORIO 4
 
SelecionaImpressora(RELAT_RELATORIO)
REPORT FORM NomeRelatorio.frx.
 
 
PROCEDURE SelecionaImpressora(lnQualTipoRelatorio)
LOCAL lsImpressora as String
 
USE Config
 
DO CASE
 
CASE lnQualTipoRelatorio = RELAT_BOLETO
lsImpressora = Config.Boleto
 
CASE lnQualTipoRelatorio = RELAT_FATURA
lsImpressora = Config.Fatura
 
CASE lnQualTipoRelatorio = RELAT_TICKET
lsImpressora = Config.Ticket
 
CASE lnQualTipoRelatorio = RELAT_RELATORIO
lsImpressora = Config.Relatorio
 
SET PRINTER TO NAME (lsImpressora)
 
ENDCASE
 
ENDPROC
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