//PEGA E ALTERA A IMPRESSORA PADRAO DO WINDOWS
sCurrentPrinter is string = iInfoPrinter() //Impressora Atual
sDefaultPrinter is string = iInfoPrinter(False) // Impressora Padrao do Painel de Controle
sDriverUsadoImpressoraPadrao is string = iInfoPrinter(False,iDriverName) //"winspool"
sNomeImpressoraPadrao is string = iInfoPrinter(False,iPrinterName) //"LX300"
sPortaImpressoraPadrao is string = iInfoPrinter(False,iDeviceName) //"LPT1:"
sListaTodasImpressorasInstaladas is string = iListPrinter() //LX300 CR HP1200 CR FAX CR CutePDF
//IMPORTANTE:
ok_situacao_01 is boolean = iConfigure("HP1200", False) // Mudar para a HP1200
IF ok_situacao_01 = True
Info("Impressora foi alterada com sucesso no painel de controle")
Info("
Printer has been successfully changed on the control panel")
ELSE
Info(ErrorInfo())
END
// OU
ok_situacao_02 is boolean = iConfigure("HP1200", True) // Mudar para a HP1200
IF ok_situacao_02 = True
Info("Impressora foi alterada com sucesso somente enquanto tiver usando o aplicativo windev")
Info("
Printer has been successfully changed only while you are using the WINDEV application")
ELSE
Info(ErrorInfo())
END
//Meu muito obrigado pela ajuda José Jorge Matos (Portugal). |