Ver Mensaje Individual
  #10  
Antiguo 27-05-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Esteban.

Yo te sugerí lo del DBGrid a fin de mostrarlo en pantalla, pero para armar los renglones perfectamente podés usar TStrings en lugar del Memo. De ese modo lo trabajas como texto y no tenés los problemas de ajuste como en pantalla.
Es decir, mostras en pantalla con el DBGrid pero internamente mandás los datos a la impresora fiscal mediante el Tstrings.

Como ejemplo, reemplazá al Memo en cualquiera de los códigos que te haya funcionado por:
Código Delphi [-]
...
var
 TS: TStrings;
begin
  TS:= TStringList.Create;
  try
    ....
    // Ajustar los espacios en los campos a imprimir ( en este ejemplo lleno con espacios delante de los campos )
    Query1Cantidad.AsString:= Query1Cantidad.AsString + StringOfChar(' ',6-Length(Query1Cantidad.AsString)); 
    Query1Articulo.AsString:= Query1Articulo.AsString + StringOfChar(' ',40-Length(Query1Articulo.AsString));
    Query1Precio.AsString:= Query1Precio.AsString + StringOfChar(' ',15-Length(Query1Precio.AsString));
    ...
    // aca cargas las lineas como lo hacías en el Memo
    Ts.Add(Query1Cantidad.AsString+Query1Articulo.AsString+Query1Precio.AsString); 
    ...
    // mandar a imprimir
  finally
    TS.Free;
  end;
end;
(Quizá encuentres algún error, no tengo Delphi en este equipo )

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 27-05-2011 a las 17:42:10.
Responder Con Cita