Delphi Can

Orjinalini görmek için tıklayınız: Çıktı boyutları
Şu anda (Arşiv) modunu görüntülemektesiniz. Orjinal Sürümü Görüntüle internal link
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;
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)
Cevap için teşekkürler...