impressora pdrao

[claudiocjr]

Ola pessoal

Uso o Clipper 5.2 e gostaria de saber
se a possibilidade de configurar uma impressora
pelo programa para ela ser padrao

grato

Claudio

[Itamar M. Lins Jr.]

Ola pessoal
Uso o Clipper 5.2 e gostaria de saber
se a possibilidade de configurar uma impressora
pelo programa para ela ser padrao
grato
Claudio

No clipper eu não sei, mas como aqui é o forum do xharbour...

Segue pedaço do código.

******************
Function ImprimeLivro
******************
*
*
Private cPrinterName, nPrn := 1, aPrn := GetPrinters(), Volta := .t.

if empty(aPrn)
MsgInfo('Não tem Impressora Instalada')
return nil
endif
oPrn := win32prn():New(GetDefaultPrinter())
oPrn :LandScape := .f.
oPrn :FormType := FORM_A4
oPrn :Copies := 1

if !oPrn:Create()
MsgInfo("Não foi criado documento")
return nil
else
if !oPrn:startDoc("Imprimindo Livros de Saidas")
MsgInfo("Erro ao Iniciar Impressão.")
return nil
else
------------------8<--------------------

Bom infelizmente esse exemplo, pega a padrão, não a torna padrão.

Saudações
Itamar M. Lins Jr.