Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Printer
#1
Merhaba; Delphi tarafında printer hiç işim olmadı, panitbox bulunan görseli printer çıktı almak istiyorum, run oluşmuyor bu durum neden kaynaklı olabilir?  

 
procedure TForm2.ToolButton1Click(Sender: TObject);
var
  a_BM: TBitmap;
begin
  a_BM := TBitmap.Create;
  With PaintBox do
    try
      Canvas.Font.Size := 10; // Not Sure if this is necessary
      Canvas.Font.Name := 'Arial'; // Not Sure if this is necessary
      Canvas.Font.Color := clBlack; // Not Sure if this is necessary
      Canvas.Rectangle(0, 0, 300, 300);
      // Should print very tiny to paper
      // But will look bigger when posted to
      // The Paintbox
      Canvas.TextOut(120, 120, 'XRay-Cat');
      Width := 300;
      Height := 300;
      a_BM.SetSize(Width, Height);
      BitBlt(a_BM.Canvas.Handle, 0, 0, a_BM.Width, a_BM.Height, Canvas.Handle,
        0, 0, SRCCOPY);
      Application.ProcessMessages;
      Printer.BeginDoc;
      Printer.Canvas.Draw(a_BM.Canvas.ClipRect.Left,
        a_BM.Canvas.ClipRect.Top, a_BM);
      Printer.EndDoc;
      Application.ProcessMessages;
    finally
      a_BM.Free;
    end;
end;
Hayat bazen güzel olabiliyor.
Cevapla
#2
(22-06-2017, Saat: 13:35)Dostk Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlMerhaba; Delphi tarafında printer hiç işim olmadı, panitbox bulunan görseli printer çıktı almak istiyorum, run oluşmuyor bu durum neden kaynaklı olabilir?  

 
procedure TForm2.ToolButton1Click(Sender: TObject);
var
  a_BM: TBitmap;
begin
  a_BM := TBitmap.Create;
  With PaintBox do
    try
      Canvas.Font.Size := 10; // Not Sure if this is necessary
      Canvas.Font.Name := 'Arial'; // Not Sure if this is necessary
      Canvas.Font.Color := clBlack; // Not Sure if this is necessary
      Canvas.Rectangle(0, 0, 300, 300);
      // Should print very tiny to paper
      // But will look bigger when posted to
      // The Paintbox
      Canvas.TextOut(120, 120, 'XRay-Cat');
      Width := 300;
      Height := 300;
      a_BM.SetSize(Width, Height);
      BitBlt(a_BM.Canvas.Handle, 0, 0, a_BM.Width, a_BM.Height, Canvas.Handle,
        0, 0, SRCCOPY);
      Application.ProcessMessages;
      Printer.BeginDoc;
      Printer.Canvas.Draw(a_BM.Canvas.ClipRect.Left,
        a_BM.Canvas.ClipRect.Top, a_BM);
      Printer.EndDoc;
      Application.ProcessMessages;
    finally
      a_BM.Free;
    end;
end;



Usese Printers eklememiş olabilirsiniz
Cevapla
#3
"run oluşmuyor" ne demek?
There's no place like 127.0.0.1
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Lisviewden direk printer gönderme serhat 10 627 10-07-2017, Saat: 19:06
Son Yorum: brs
  PaintBoxdan printer çıktısı alma hido 0 392 27-06-2017, Saat: 13:51
Son Yorum: hido



Konuyu Okuyanlar: 1 Ziyaretçi