Abrir la impresora y seleccionar lo que quiero imprimir

[ingabraham]

hola
tengo un form k y en el tengo un groupbox que
tiene como especie de una tarjeta puntos(como las de exito) configurado:
el group contiene

1. imagen (imagen fondo carnet)
2. dos label con ced y nombre usuario
3. otra imagen con el logo que puede variar

ya. quiero imprimirla , como hago?

[ecfisa]

Hola ingabraham.

Proba de este modo:

Código Delphi [-]
uses Printers;

procedure PrintControl(aPrn: TPrinter; aWinControl: TWinControl; const aPosX, aPosY: Integer);
var
  Bmp: TBitmap;
  hdcSrc: HDC;
begin
  Bmp:= TBitmap.Create;
  try
    Bmp.Width:= aWinControl.Width;
    Bmp.Height:= aWinControl.Height;
    hdcSrc:= GetWindowDC(aWinControl.Handle);
    try
      BitBlt(Bmp.Canvas.handle, 0, 0, Bmp.Width, Bmp.Height, hdcSrc, 0, 0, SRCCOPY)
    finally
      ReleaseDC(aWinControl.Handle, hdcSrc)
    end;
    aPrn.Canvas.Draw(aPosX, aPosY, Bmp);
  finally
    Bmp.Free
  end
end;

Llamada ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Printer: TPrinter;
begin
  Printer:= TPrinter.Create;
  try
    Printer.BeginDoc;
    //...
    PrintControl(Printer, GroupBox1, 100, 50);
    //... 
    Printer.EndDoc;
  finally
    Printer.Free;
  end;
end;

Saludos.

[ecfisa]

Hola ingabraham.

A una semana de planteada tu duda, sería interesante que nos comentaras si la propuesta te fué útil y de no ser así, que compartas la solución que pudiste encontrar.

Esta sugerencia, basada en el punto 13 de la guía de estilos, es a fín de facilitar soluciónes a quién pudiera tener un problema similar.

Saludos y gracias por tu colaboracion

[ingabraham]

bueno te comento en la impresion me sale bien, pero es muy pequeñito, como dos veces el tamaño de una simcard.

quiero que me lo imprima tal y cual como me lo visualiza, porque me lo esta imprimiendo pequeñito.

[ingabraham]

hellp ayuda, k estoy necesitando esta solucion urgente, no se si configurando el ancho y alto de esta imagen
para que me la imprima normal y no en miniatura.,!!!

[ingabraham]

ok. me toca ampliar el .GroupBoxTarjeta1 manualmente y todos sus componentes. de lo cual me despixelaria la imagen
alguien me puede dar alguna idea es que me parece que esta forma no seria la correcta

[ingabraham]

utilizo delphi 7


quiero que me imprima mi tamaño normal de una imagen, el cual contiene unos label y otras imagenes que pueden ser variables.

quiero que me lo imprima tal y cual como me lo visualiza, porque me lo esta imprimiendo pequeñito.

mi siguiente codigo es:

Código Delphi [-]

uses Printers;

procedure PrintControl(aPrn: TPrinter; aWinControl: TWinControl; const aPosX, aPosY: Integer);
var
  Bmp: TBitmap;
  hdcSrc: HDC;
begin
  Bmp:= TBitmap.Create;
  try
    Bmp.Width:= aWinControl.Width;
    Bmp.Height:= aWinControl.Height;
    hdcSrc:= GetWindowDC(aWinControl.Handle);
    try
      BitBlt(Bmp.Canvas.handle, 0, 0, Bmp.Width, Bmp.Height, hdcSrc, 0, 0, SRCCOPY)
    finally
      ReleaseDC(aWinControl.Handle, hdcSrc)
    end;
    aPrn.Canvas.Draw(aPosX, aPosY, Bmp);
  finally
    Bmp.Free
  end
end;


procedure TTarjetaPuntos.SpeedButton11Click(Sender: TObject);
var
  Printer: TPrinter;
begin

   SpeedButton11.Visible   := false;


  Printer:= TPrinter.Create;
  try
    Printer.BeginDoc;
    //...
    PrintControl(Printer, GroupBoxTarjeta1, 100, 50);
    //...
    Printer.EndDoc;
  finally
    Printer.Free;
  end;

   SpeedButton11.Visible   := true;

end;

[ingabraham]

delhi 7.

tengo un form que contiene 2 groupbox que contienen imagenes y label.


deseo que al darle clic a un boton
me abra la impresora para configurarla, y luego imprimir el groupbox que desee.

como lo hago???

[Casimiro Notevi]

Por favor, no abras distintos hilos para preguntar realmente lo mismo en todos. Gracias.
Sigue con este.

[ingabraham]

ese hilo es diferente!!!
Necesito como abrir la configuración de la impresora, para imprimir uno de 2 groupbox, agradesco que lea determinadamente la pregunta para poderla eliminar. gracias y no lo haga por ver mi desespero en este hilo.!!

[Casimiro Notevi]

Es que en la configuración de una impresora no puedes elegir imprimir un groupbox u otro.
En la configuración puedes cambiar el tamaño de página, la resolución, número de copias, etc.
Pero lo que quieres hacer tendrás que conseguirlo antes mediante código.
Y si no es así, entonces es que no he entendido nada de lo que estás haciendo

[ecfisa]

Empezado por ingabraham

deseo que al darle clic a un boton me abra la impresora para configurarla, y luego imprimir el groupbox que desee.

como lo hago???

Hola.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  prn: TPrinter;
begin
  if PrinterSetupDialog1.Execute then
  begin
    prn:= TPrinter.Create;
    try
      prn.BeginDoc;
      PrintControl(prn, GroupBox1, 100, 50);
      prn.EndDoc;
    finally
      prn.Free;
    end;
  end;
end;

Saludos.

[[AzidRain]]

De entrada la resolución de la impresora nada tiene que ver con la de la pantalla por lo que en pantalla se ve "grande" en una impresora puede verse "pequeñito" y viceversa. Y variará de impresora a impresora y de pantalla a pantalla. Solución: Hay que hacer muchos cálculos para cambiar la resolución de la impresora para que se adapte lo mejor posible a la de pantalla de manera que puedas ver la imagen en grande. Esto te funcionará para cualquier impresora, otra opción es jugar con las opciones de la impresora (vía código) para que te ajuste el tamaño (zoom) de lo que mandes a imprimir, pero dependerás de cada impresora ya que no todas lo hacen de la misma forma.

¿No sería más fácil plantear el problema y necesidad para que se te puedan dar otras opciones que te sean más sencillas de implementar? A muchos no se nos hace muy lógico el querer imprimir un form o un control tal cual, por algo lo estas tratando de hacer.

[ingabraham]

Empezado por AzidRain

De entrada la resolución de la impresora nada tiene que ver con la de la pantalla por lo que en pantalla se ve "grande" en una impresora puede verse "pequeñito" y viceversa. Y variará de impresora a impresora y de pantalla a pantalla. Solución: Hay que hacer muchos cálculos para cambiar la resolución de la impresora para que se adapte lo mejor posible a la de pantalla de manera que puedas ver la imagen en grande. Esto te funcionará para cualquier impresora, otra opción es jugar con las opciones de la impresora (vía código) para que te ajuste el tamaño (zoom) de lo que mandes a imprimir, pero dependerás de cada impresora ya que no todas lo hacen de la misma forma.

¿No sería más fácil plantear el problema y necesidad para que se te puedan dar otras opciones que te sean más sencillas de implementar? A muchos no se nos hace muy lógico el querer imprimir un form o un control tal cual, por algo lo estas tratando de hacer.

ESTE es mi problema.

tengo una impresora hp deskjet 100(normal) imprimo un carnet q tengo en delphi 7 con una imagen de fondo y label. me sale bien
pero al momento de imprimirla en una epson stilus foto t50.(carnetizadora)

quien me puede ayudar con la configuracion de esta, lo que trato de imprimir son unos carnet pero en esta ultima me sale la impresion muy pequeña y con otro codigo que tengo x alli que utilizo el Self.Print; me sale muy grande

ayudenme!!

[Casimiro Notevi]

Cierro este hilo, puesto que has abierto otro para lo mismo.