claudiocjr escreveu: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.