Çıktı boyutları

[brs]

Merhaba; 

Paintbox ve image kullanarak prtinter QR kodu çıktısı alıyorum, Width ve Height belirmeme rağmen a4 baktığımda QR kodu o kadar ufak kalıyor. Bu sorun neden kaynaklı olabilir?

var
  Wd, He: Integer;
begin
  if length(UrunKodu.Text) > 0 then
  begin
    if PrintDialog.Execute then
    begin
      Wd := 300;
      He := 300;
      Printer.BeginDoc;
      BitBlt(Printer.Canvas.Handle, 0, 0, Wd, He, PaintUrun.Canvas.Handle, 0,
        0, SRCCOPY);
      Printer.EndDoc;
    end;
  end;
end;

begin
  if length(UrunKodu.Text) > 0 then
  begin
    if PrintDialog.Execute then
    begin
      Printer.Title := UrunKodu.Text;
      Printer.BeginDoc;
      BitBlt(Printer.Canvas.Handle, 0, 0, ImageUrunDetay.Width,
        ImageUrunDetay.Height, ImageUrunDetay.Canvas.Handle, 0, 0, SRCCOPY);
      Printer.EndDoc;
    end;
  end;
end;

[Abdullah ILGAZ]

Merhaba,

QRCode teknolojisinde scale meselesi biraz farklı işliyor. Bunu bazı editör sahibi yazılımlarda Text Font Size, Scale, Size, Capacity özellikleri ile yönetebilirsiniz. Kod ile yaparken muhtemelen bunu override ederek istediğiniz ölçeğe getirebilirsiniz. (Mevcutta 1 birimse, 1.5 veya 2 birim denemelisiniz)

[brs]

Cevap için teşekkürler...