Então... Eu tenho isto não sei se vai servir, contudo vale a pena testar:
Abraço
Felipe
var
ADevice, ADriver, APort: array[0..255] of char;
DeviceMode: THandle;
M: PDevMode;
X, Y, A, B, Col: Integer;
S: String;
begin
// Força o uso de Printer. Se esta linha for removida, a primeira
// invocação falha. Bug da VCL
S := Printer.Printers[Printer.PrinterIndex];
// Pega dados da impressora atual
Printer.GetPrinter(ADevice, ADriver, APort, DeviceMode);
// Pega um ponteiro para DEVMODE
M := GlobalLock(DeviceMode);
if M <> nil then
begin
//Muda tamanho do papel
M^.dmFields := M^.dmFields or DM_PAPERSIZE;
M^.dmPaperSize := DMPAPER_USER;
//M^.dmFields := M^.dmFields or DM_PAPERLength;
//M^.dmPaperLength := Round(TblConfigCoEtAltura.AsFloat);
M^.dmFields := M^.dmFields or DM_PAPERWidth;
M^.dmPaperWidth := 4000;
// Atualiza
Printer.SetPrinter(ADevice, ADriver, APort, DeviceMode);
end;
End;
-----Mensagem original-----
De: Rodrigo - Winsoft [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 21 de março de 2005 11:49
Para: Lista - Delphi-br
Assunto: [delphi-br] Erro: PRINTER SELECTED IS NOT VALID.
Bom dia galera........td na santa paz ? Espero q sim...
Estou com o seguinte problema: Tenho um sistema em Delphi 7 / QuickReport.
Estou usando a impressora HP 3535. Quando mando imprimir dá a seguinte
mensagem de erro:
PRINTER SELECTED IS NOT VALID.
Este micro foi formatado.
Já instalei e desistalei a impressora, já rodei o antivirus, não existe
arquivo temporário na pasta spool....
Não sei mais o q fazer....Acho q vou formatar novamente.
Obs1.: Antes da formatação estava funcionando normalmente.
Obs2.:No word funciona, mas no sistema dá o erro.
Se alguem puder me ajudar..Agradeço desde já...
Obrigado.
Rodrigo Pedroso
Winsoft Informática - (14) 3664-1586
[EMAIL PROTECTED]
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.3 - Release Date: 15/03/2005
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
