Imprimir Image

[acl_gandalf]

¿sabe alguien como imprimir por impresora una imagen?¿... ademas de con un ancho determinado y una altura determinada?. lo q pretendo con esto es hacer un caratulador.

Gracias.

[Neftali [Germán.Estévez]]

Empezado por acl_gandalf

¿sabe alguien como imprimir por impresora una imagen?¿... ademas de con un ancho determinado y una altura determinada?. lo q pretendo con esto es hacer un caratulador.

Gracias.

Interesante, éste tema...

Bueno, una opción para empezar sería utilizar un formulario (tiene el método print); Por ejemplo haz la siguiente prueba; Coloca en un Form un TImage (con una imagen y un TButton); En el OnClick del TButton programa lo siguinte:

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 var
   bi:TBorderIcons;
 begin
 
   // Antes de imprimir
   Self.Color := clWhite;
   Self.Button1.Visible := False;
   Self.BorderStyle := bsNone;
   bi := Self.BorderIcons;
   Self.BorderIcons := [];
 
   // Desativar Autiosize
   Self.Image1.AutoSize := False;
   // Probamos a cambiar el tamaño
   Self.Image1.Height := 100;
   Self.Image1.Width := 300;
 
   // Imprimir
   Self.Print;
 
   // Activar Autosize de nuevo
   Self.Image1.AutoSize := True;
   // Despues de imprimir....
   Self.BorderIcons := bi;
   Self.BorderStyle := bsSizeable;
   Self.Button1.Visible := True;
   Self.Color := clBtnFace;
 end;

Es una aproximación, pero sobre eso puedes hacer pruebas, y te puede servir para mejorar ésta idea...

Por ejemplo, pensando un poco más, yo utilizaría un form diferente (con las propiedades ya configuradas) para imprimir; En el form de impresión ya puedes tener diseñados dónde van a ir las etiquetas de la carátula (con labels) y las líneas (con Shapes);

[acl_gandalf]

en cuanto lo pruebe os comento