'Nome       : PrtExp.std
'Tipo       : PRT         'para activar remover este comentario
'Data       : 1999/03/15
'Versao     : 3.0b
'Descricao  : Exemplos para Impressoras

'-----------------------------------------------------------------------------
' Modificacoes
'-----------------------------------------------------------------------------
'- Versao : 3.0   1998/10/09 -------------------------------------------------
'Versao base

'- Versao : 3.0a  1998/11/29 -------------------------------------------------
'Exemplo para modo tipo 4 (SPOOL)

'- Versao : 3.0b  1999/??/?? -------------------------------------------------
'Exemplo para mapear caracteres WIN - > DOS  (Opcao MapCar)
'Exemplo para opcoes diversas                (Opcao OpcDiv)


'-----------------------------------------------------------------------------
'NOTAS: Este ficheiro tem exemplos para varios modos de impressora.
'       So deve estar activo um deles.
'       Neste exemplo esta activada a listagem para VIDEO
'       Os comandos aqui usados sao para IBM proprinter
'       O mapeamento de caracteres esta desactivado
'-----------------------------------------------------------------------------


#DEF
Linha                            [MaxLin]=220
Impressao local                  [ImpLoc]=0
Modo de titulos (Dupla largura)  [ModTit]=DUP
'Modo de titulos (Dupla largura)  [ModTit]=DUP:1.5
'Modo de titulos (Bold)           [ModTit]=BLD
'Modo de titulos (Bold+Espaco)    [ModTit]=BLD+ESP
'Modo de titulos (Espaco)         [ModTit]=ESP
'Salto de pagina automatico        [SpAut]=S
'Mapear caracteres                [MapCar]=WD;[SIG_DIR.DEV],WinDos.map
'Opcoes diversas                  [OpcDiv]=[OpcX=AAA]

'------------------------------------------------------------------------------
'saida directa para impressora
'------------------------------------------------------------------------------
'Tipo de saida (ficheiro/device) [TipSai]=1,O
'Ficheiro/Device             [FIC.FicDev]=LPT1:
'Contagem                    [FIC.FicCnt]=
'Spooler                          [Spool]=


'------------------------------------------------------------------------------
'ficheiro unico
'------------------------------------------------------------------------------
'Tipo de saida (ficheiro/device) [TipSai]=2,O
'Ficheiro/Device                 [FicDev]=[UTZ_DIR],lst,prXX.lst
'Ficheiro/Device                 [FicDev]=\\xxx\prXX
'Contagem                    [FIC.FicCnt]=
'Spooler                          [Spool]=


'------------------------------------------------------------------------------
'visualizar
'------------------------------------------------------------------------------
Tipo de saida (ficheiro/device) [TipSai]=2,O
Ficheiro/Device                 [FicDev]=[UTZ_DIR],lst,prXX.vid
'Ficheiro/Device                 [FicDev]=[WIN_DIR_TMP],prXX.vid
Contagem                    [FIC.FicCnt]=
Spooler                          [Spool]=notepad.exe


'------------------------------------------------------------------------------
'ficheiro por listagem
'------------------------------------------------------------------------------
'Tipo de saida (ficheiro/device) [TipSai]=3,O
'Ficheiro/Device                 [FicDev]=[UTZ_DIR],lst,prXX.lst
'Contagem                    [FIC.FicCnt]=[UTZ_DIR],lst,prXX.cnt
'Spooler                          [Spool]=


'------------------------------------------------------------------------------
'spooling - com contagem no inicio
'------------------------------------------------------------------------------
'Tipo de saida (ficheiro/device) [TipSai]=4,O
'Ficheiro/Device                 [FicDev]=[UTZ_DIR],lst,prXX.lst
'Contagem                    [FIC.FicCnt]=[UTZ_DIR],lst,prXX.cnt
'Spooler                          [Spool]=print
##


#CMD
'comandos standard
Inicializacao de impressora       [INI]=chr$(27)chr$(64)
salto de linha                     [SL]=chr$(13)chr$(10)
salto de pagina                    [SP]=chr$(12)

10 CPI Letra normal           [10CPILN]=chr$(20)chr$(18)
10 CPI Letra dupla            [10CPILD]=chr$(18)chr$(14)
12 CPI Letra normal           [12CPILN]=chr$(20)chr$(27)chr$(58)
12 CPI Letra dupla            [12CPILD]=chr$(27)chr$(58)chr$(14)
16 CPI letra normal           [16CPILN]=chr$(20)chr$(15)
16 CPI letra dupla            [16CPILD]=chr$(15)chr$(14)

'formato de papel
pagina de 72 linhas de papel      [72L]=chr$(27)chr$(67)chr$(72)
pagina de 66 linhas de papel      [66L]=chr$(27)chr$(67)chr$(66)
pagina de 48 linhas de papel      [48L]=chr$(27)chr$(67)chr$(48)
pagina de 36 linhas de papel      [36L]=chr$(27)chr$(67)chr$(36)
pagina de 24 linhas de papel      [24L]=chr$(27)chr$(67)chr$(24)
pagina de 18 linhas de papel      [18L]=chr$(27)chr$(67)chr$(18)
pagina de 12 linhas de papel      [12L]=chr$(27)chr$(67)chr$(12)
pagina de 09 linhas de papel      [09L]=chr$(27)chr$(67)chr$(09)

'entrelinha
Entrelinha normal               [TeNor]=chr$(27)Achr$(12)chr$(27)2
Entrelinha alternativa          [TeAlt]=chr$(27)Achr$(3)chr$(27)2


'ficheiro de comandos
'Comandos nulos (video)           [FicCmd_Nulo]  =[SIG_DIR.DEV],Nulo.cmd
'Comandos para IBM proprinter     [FicCmd_IbmPro]=[SIG_DIR.DEV],IbmPro.cmd
'Comandos para EPSON              [FicCmd_Epson] =[SIG_DIR.DEV],Epson.cmd
'Comandos para HP LaserJet        [FicCmd_HpLj]  =[SIG_DIR.DEV],HpLj.cmd
'Comandos para HP DeskJet         [FicCmd_HpDj]  =[SIG_DIR.DEV],HpDj.cmd

'comandos suplementares
##


