PDA

Ver la Versión Completa : Imprimir Image


acl_gandalf
01-02-2005, 14:28:30
¿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]
01-02-2005, 15:10:26
¿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:


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
01-02-2005, 16:08:31
en cuanto lo pruebe os comento