Cita:
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
Self.Color := clWhite;
Self.Button1.Visible := False;
Self.BorderStyle := bsNone;
bi := Self.BorderIcons;
Self.BorderIcons := [];
Self.Image1.AutoSize := False;
Self.Image1.Height := 100;
Self.Image1.Width := 300;
Self.Print;
Self.Image1.AutoSize := True;
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);