Problema com impress�o de promiss�rias

Question

Pessoal, preciso imprimir umas notas promiss�rias pelo Delphi e estou usando o Printer.Canvas, mas n�o consigo configurar o tamanho do papel.

Ent�o, ele ejeta o papel apos a impress�o o q n�o deveria acontecer, porque as promissorias est�o em formul�rio cont�nuo.

Alguem pode me ajudar ???
T+

Dalri · Answer

Ao inves de usar o canvas tente usar o printer.

ai use a segunte procedure:

procedure TNotaFiscal.AlteConfig;
var imp : String;
begin

imp := Printer.Printers[Printer.PrinterIndex];

// busca os dados da impressora ativa
Printer.GetPrinter(Adevice, Adriver, Aport, DeviceMode1);

// pega um ponteiro para DEVMODE que e responsavel pelo paper
M := GlobalLock(DeviceMode1);
if M <> nil then
begin
// altera o tamanho do papel
M^.dmPaperSize := DMPAPER_USER;
M^.dmPaperWidth := tbConfigLARGURANT.value;
M^.dmPaperLength := tbConfigCOMPRINT.value;
Printer.SetPrinter(Adevice, Adriver, Aport, DeviceMode1);
end;
end;

Sendo que LARGURANT e COMPRINT estao armazenados na tabela de configuracao da nota fiscal.

Espero ter ajudado