Hola amigo Comba,
Parece mentira que a estas alturas tenga el mimo problema.
Por necesidades (ilogicas) hemos mudado el codigo del viejo
D7 hacia un
XE4 y, entre otras, la funcion de impresion siobre impresoras Zebra no ha funcionado nunca más.
En mi caso tambien, llega hasta el mismo punto y no produce ninguna salida. Aqui parte de mi código muy similar al tuyo:
Código Delphi
[-]var
PrinterHandle: THandle;
N: DWORD;
DocInfo1: TDocInfo1;
begin
Result:= FALSE;
if not WinSpool.OpenPrinter(PChar(PrinterName), PrinterHandle, nil) then
begin
ShowMessage(PrinterName+#13+'OpenPrinter error ' + IntToStr(GetLastError));
Exit;
end
else Try
with DocInfo1 do
begin
pDocName := PChar('Keuken Doc');
pOutputFile := nil;
pDataType := 'RAW';
end;
if StartDocPrinter(PrinterHandle, 1, @DocInfo1) <> 0
then ...
Como lo has resuelto?