Salu2 les molesto esta vez porque tengo un pequeño problema: tengo una source de una aplicacion que descargue del FTP del foro se llama Impressora_Fiscal.rar bien lo que quiero es mandar los datos del DBGrid a imprimir pero la impresora usa el puerto virtual USB001 y no e encontrado en el foro ningun código que me ayude a imprimir, en el foro encontré este codigo
Código Delphi
[-]function WriteRawDataToPrinter(PrinterName: String; Str: String): Boolean;
var
PrinterHandle: THandle;
DocInfo: TDocInfo1;
i: Integer;
B: Byte;
Escritos: DWORD;
begin
Result:= FALSE;
if OpenPrinter(PChar(PrinterName), PrinterHandle, nil) then
try
FillChar(DocInfo,Sizeof(DocInfo),#0);
with DocInfo do
begin
pDocName:= PChar('Printer Test');
pOutputFile:= nil;
pDataType:= 'RAW';
end;
if StartDocPrinter(PrinterHandle, 1, @DocInfo) <> 0 then
try
if StartPagePrinter(PrinterHandle) then
try
while Length(Str) > 0 do
begin
if Copy(Str, 1, 1) = '\' then
begin
if Uppercase(Copy(Str, 2, 1)) = 'X' then
Str[2]:= '$';
if not TryStrToInt(Copy(Str, 2, 3),i) then
Exit;
B:= Byte(i);
Delete(Str, 1, 3);
end else B:= Byte(Str[1]);
Delete(Str,1,1);
WritePrinter(PrinterHandle, @B, 1, Escritos);
end;
Result:= TRUE;
finally
EndPagePrinter(PrinterHandle);
end;
finally
EndDocPrinter(PrinterHandle);
end;
finally
ClosePrinter(PrinterHandle);
end;
end;
cosa que no me a ayudado devido a que solo se muestran las impresoras de Windows pero mi impresora térmica se muestra como ((No Especificado))
Debido a que no puedo poner enlaces externos pueden descargar del FTP el código de la Impresora Fiscal
PS: Ya me ley la guía de estilo