Nota fiscal no quickreport perfeita, mas...
10/12/2005
0
O que fazer ???
Obrigado.
Dr. Interbase
Posts
10/12/2005
Edilcimar
12/12/2005
Dr. Interbase
Obrigado
12/12/2005
Ipc$
uses Winspool; var HP:THandle; s:String; iRet:Longword; Doc:Doc_Info_1; n:Byte; begin OpenPrinter(PChar(´Nome da Impressora´), HP, nil); Doc.pDocName := ´Nota Fiscal´; Doc.pOutputFile := ´´; Doc.pDatatype := ´RAW´; StartDocPrinter(HP, 1, @Doc); // Inicia um job no spool s := #2764; // Reseta WritePrinter(HP, @s[1], 2, iRet); n := 13; // Coloque o tamanho em polegadas da sua nota s := 27670 + Chr(n); // Ajusta o tamanho da nota p/ 13 polegadas WritePrinter(HP, @s[1], 4, iRet); EndDocPrinter(HP); // Finaliza o job ClosePrinter(HP); end;
12/12/2005
Dr. Interbase
Socorro por favor, detalhe mais o codigo acima, tipo onde colocar e tudo o mais, Acho que isso ajudaria e muito a todos do clube.
Obrigado
12/12/2005
Ipc$
Para impressão matricial acho melhor utilizar as funções das apis de impressão; StartDocPrinter e WritePrinter.
Vc tb pode tentar configurar o QuickRep, deixando Page.PaperSize = Custom e ajustar Page.Length e Page.Width. Comigo numa nota fiscal de 13 polegadas não funcionou, por isso que utlizo as apis.
Clique aqui para fazer login e interagir na Comunidade :)