Imprimir en Impresora Epson TM U220D

[marcoszorrilla]

Código Delphi [-]
procedure SetPaperSize (intAlto,intAncho : Integer);
{aqui se define el tamaño del papel}
var
   ADevice, ADriver, APort : array [0..255] of Char;
   ADeviceMode : THandle;
   DevMode : PDevMode;
begin
   with Printer do
      begin
         GetPrinter (ADevice, ADriver, APort, ADeviceMode);
         SetPrinter (ADevice, ADriver, APort, 0);
         GetPrinter (ADevice, ADriver, APort, ADeviceMode);
         DevMode := GlobalLock(ADeviceMode);
         if not Assigned(DevMode) then
            ShowMessage('Ha entrado en -> if not Assigned(DevMode) ...')
         else
            begin
               with DevMode^ do
                  begin
                     dmPaperSize:= DMPAPER_User;
                     dmPaperLength := intAlto;
                     dmPaperWidth:= intAncho;
                     dmFields := dmFields or DM_PAPERSIZE or DM_PAPERLength or DM_PAPERWidth;
                  end;
               GlobalUnLock(ADeviceMode);
               SetPrinter(ADevice, ADriver, APort, ADeviceMode);
           end;
      end;
end;

procedure Imprimir_Alb_Fact(n:Integer);
var
Imprime_Pie:Boolean;
Imprimir:Boolean;
begin
Imprime_Pie:=False;
Imprimir   :=True;
//1 Albarán
//2 Factura
DmPan.Cli.IndexName:='';

SetPaperSize(DmPan.ImpresoraLargoPapel.Value, DmPan.ImpresoraAnchoPapel.Value);
Printer.Canvas.Font.Name:=DmPan.ImpresoraLetra.Value;
Printer.Canvas.Font.Size:=DmPan.ImpresoraTallaLetra.Value;

Case n of
1:begin
    if DmPan.AlbaContado.Value = True then
    Imprime_Pie:=True
    else
    Imprime_Pie:=False;

    if DmPan.UsuNivel.Value = '1' then
    begin
      if Application.MessageBox('¿Seguro que desea imprimir el Albarán?','Atención',mb_OkCancel +
      mb_IconQuestion)= idOk then
      Imprimir:=True
      else
      Imprimir:=False;
    end;

  end;
2:Imprime_Pie:=True;
end;

  if imprimir = True then
  begin

   With Printer.canvas do
   begin
    Printer.BeginDoc;

        Imprimir_Cabecera(n);
        Imprimir_Detalle(n);

        if Imprime_Pie = True then
        begin
        Imprimir_Pie(n);
        Imprimir_Total_Final(n);
        end;

    Printer.EndDoc;
   end;
  end;
end;

Con este ejemplo ves como puedes mandarle el tamaño del ticket a la impresora.

Veo que de 90 pasas a 300, no estará esa situación de línea fuera del ticket y por eso no se ve.

Las coordenadas normalmente sumándole 30 logras el cambio de fila, pero de 90 pasar a 300, creo que ya estás fuera del ticket.

Un Saludo.

[mtirado]

Gracias por el codigo.
El ejemplo que te puse fue hipotetico, es decir es ese mismo codigo pero solo tome algunas lineas, no todas, para que supieras como lo hacia, o que utilizaba.
En el ejemplo que me pones, como pudo ponerle el tamanno al papel, es decir, en mi caso que el papel debe medir de 75 mm por 75 mm, el valor que le entro es un integer, pero imagino que deba convertir (75). Imagina que lo que quiero es imprimir los datos de un cliente con los pedidos de productos que ha realizado, la anchra debe ser de 75 mm pero el largo va a depender de la cantidad de productos que ha seleccionado. Como puedo hacer eso? Disculpame pero es que nunca me he dedicado a imprimir.
En el codigo que me envias no veo el codifo de las funciones Imprimir_Cabecera(n); Imprimir_Detalle(n); me seria de ayuda para ver como lo mandas a imprimir, y que coordenadas utilizas.
Muchas gracias por todo.
Un abarzo.
Yunier.

[mtirado]

En la funcion que le pasas el tamanno le pasas dos integer, que debo hacer para ajustar los 75 por 75 mm al valor integer.
Por otro lado la variable DMDin o algo asi es una clase que contiene las caracteristicas de la impresion?
Gracias.

[marcoszorrilla]

En tu ejemplo 75 x 75 sería: 7500 x 7500 ya que la medida es en mm por 1000

Un Saludo.

[mtirado]

Entonces los parametros que le tendria que pasar al procedimiento del tramanno del papel seria 7500 y 7500.
Eso esta bien (en caso de que funcione claro).
Pero como es que le paso al canvas lo que deseo imprimir, en mi caso lo que debo hacer es canvas.textout(x,...), pero en que coordenada deberia empezar, como puedo jugar con las dimensiones del papel y el largo de la cadena que quiero imprimir??? No se si me entiendan?
Muchas gracias.

Empezado por marcoszorrilla

En tu ejemplo 75 x 75 sería: 7500 x 7500 ya que la medida es en mm por 1000

Un Saludo.

[marcoszorrilla]

Le tienes que pasar los parámetros que te indico, pero claro según colijo tu estás hablando de longitud variable del ticket por lo tanto la altura no la conoces de antemano, aunque supongo que al llegar a los 29,7 Cm. del A4, dará un salto.

Para ceñirnos a lo que dices sería preciso calcular la relación líneas de ticket ->cms. de esta manera antes de pasarle el tamaño lo calcularíamos.

Un Saludo.

[mtirado]

Ok, entiendo lo que dices, imagina que le paso un tamanno por defecto de largo, pero el tamanno de ancho si tiene que ser de 75 mm. Pero a la hora pasarle el texto al canvas que cooredenadas debor tomar? Esa es mi prgunta.
Gracias.

Empezado por marcoszorrilla

Le tienes que pasar los parámetros que te indico, pero claro según colijo tu estás hablando de longitud variable del ticket por lo tanto la altura no la conoces de antemano, aunque supongo que al llegar a los 29,7 Cm. del A4, dará un salto.

Para ceñirnos a lo que dices sería preciso calcular la relación líneas de ticket ->cms. de esta manera antes de pasarle el tamaño lo calcularíamos.

Un Saludo.