Nome do Computador e da Impressora

[kapiaba]

Galera, neste exemplo, tem como eu pegar o nome do computador(NOMBREPC) + o Nome da Impressora direto para disparar com o comando PRINTFIELRAW()

exemplo:

 oPrn:=TDosPrn():New( "C:\LISTADO.TXT" )
 oPrn:Say(1,1,"PRUEBA" )
 oPrn:Say(2,1,CHR(12) )
 oPrn:End()
 PrintFileRaw( "\\NOMBREPC\Epson LX300",  "C:\LISTADO.TXT" ) //LX350 Es el nombre de la impresora compartida

Obg. abs.

[joaosolution]

João

Com este comando carrego as impressoras instaladas em um vetor:

aImps:= GetPrinters()

Depois é só varrer o vetor e para imprimir

Att

João Bosco

[kapiaba]

Hello João Bosco!!

É possivel postares um exemplo prático, para eu ver como fazes com a TDOSPRN.PRG, é sempre bom, ver idéias diferentes.

Obg. abs.

[joaosolution]

João

Não utilizo TDOSPRN, utilizo na impressão em DOS antiga com set printer to teste.prn etc. e tal

PrnPad:=GetDefaultPrinter()

ou

Public aPrn:= GetPrinters()

PrnPad:=aPrn[1]

PrintFileRaw( PrnPad, "\pasta\arquivo.prn", "Impressão" )

Att

João Bosco

[kleyber]

Kapi,

Eu faço assim (pra imprimir em uma impressora USB usando TDOSPRN, por exemplo):

cPorta := PrnGetPort()
cPrinter := PrinterPortToName( cPorta )
if empty(cPrinter)
cPrinter := PrinterPortToName( "USB002" )
if empty(cPrinter)
cPrinter := PrinterPortToName( "USB001" )
endif
endif

oPrin := TDosPrn():New("minuta.txt")
oPrin:StartPage()

...

...

...

oPrin:EndPage()
oPrin:End()

PrintFileRaw( cPrinter, TrueName("MINUTA.TXT"), "Impressão de Vendas" )

[SAOliveira]

nRet:=PrinterSetUp()
IF(nRet#0)
    nPrn:=PastaSistema+"\sumatrapdf.exe -print-to "+PrinterPortToName(PrnGetPort())+" -reuse-instance -lang br "
    WinExec(nPrn+cArq,0) // sem preview
    //WinExec(PastaSistema+"\sumatrapdf.exe -reuse-instance -lang br "+cArq) // com preview
    //WinExec(PastaSistema+"\sumatrapdf.exe -print-to-default -reuse-instance -lang pt "+cArq) // sem preview
ENDIF

Uso desta forma, para imprimir um arquivo.pdf. em conjunto com o SumatraPdf.

Detalhe com o Windows 8.1/64 se o nome da impressora tiver espaços não funciona.

Pelo menos eu não consegui.

[kapiaba]

Olá Sérgio, talvez. você precise Fazer o download do 2.1.1 ou 2.3.2 estável de MEGA x86 ou a versão X64

Veja no site do Sumatra se tem uma versão disponivel para esta plataforma. Somente uma idéia.

abs,

[kleyber]

Kapi,

Deu certo pra ti a dica?

[kapiaba]

Kapi,

Deu certo pra ti a dica?

Sim friend, desta forma, eu já tinha pego sua dica no forum inter e aparentemente funciona. Obg. abs.