excel'e form aktarma

[tubaca]

merabalar
daha once formu istediğim gibi yazdıramadıgımiçin yardım istemiştim.fakat cevap gelmedi.sanırım istediğim sey mumkun degil.
fakat bi yerden formu birebir exele aktarabilecegimi duydum.ama biraz zormuş.bu konuda bilgisi olan arkadaslar bana yardımcı oalbilirlerse sevinirim.azcık bilgide olsa yeter ben bi sekilde ugrasır bi cozum yolu bulmaya çalışırım. kolay gelsin...

[oguzozturk74]

viewtopic.php?t=3246&highlight=form+print

[mege]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var //capture için
    MyBMP : TBitMap;
    MyJPEG : TJPEGImage;
    // excel için
    ExcelFile  :variant;
    ExcelSheet :variant;

begin
     MyBMP:=TBitMap.Create;
     MyJPEG := TJPEGImage.Create;
  try
     MyBMP:=GetSCREENSHOT;
     MyJPEG.Assign(myBMP);
     MyBMP.SaveToFile(ExtractFilePath(Application.ExeName)+'Page.bmp');
     MyJPEG.SaveToFile(ExtractFilePath(Application.ExeName)+'Page.jpg');
  finally
     myBMP.Free;
     MyJPEG.Free;
  end;


     ExcelFile:=createoleobject('excel.application');
     ExcelFile.workbooks.add;
     ExcelFile.activeworkbook.worksheets[1].Name := 'Resim';
     ExcelSheet:=ExcelFile.activeworkbook.worksheets[1].cells[1];

      ExcelFile.activeworkbook.worksheets[1].Pictures.
           Insert(ExtractFilePath(Application.ExeName)+'Page.jpg');

     ExcelFile.visible:=True;//Exceli acip verileri
     //ExcelFile.ActiveWorkbook.SaveAs('c:\b.xls', -4158, False);
     ExcelFile.ActiveWorkbook.Saved:=TRUE;
     //ExcelFile.ActiveWorkbook.SaveCopyAs('c:\d.xls');
     //ExcelFile.quit;
     ExcelFile:=Unassigned;

end;

getscreenshot bu

Kod: Tümünü seç

function TForm1.GetSCREENSHOT: TBitmap;
const
  cTileSize = 50;
var
  Locked: Boolean;
  X, Y, XS, YS: Integer;
  Canvas: TCanvas;
  R: TRect;
begin
  Result := TBitmap.Create;
  Result.Width := Screen.Width;
  Result.Height := Screen.Height;
  Canvas := TCanvas.Create;
  Canvas.Handle := GetDC(0);
  Locked := Canvas.TryLock;
  try
    XS := Pred(Screen.Width div cTileSize);
    if Screen.Width mod cTileSize > 0 then
      Inc(XS);
    YS := Pred(Screen.Height div cTileSize);
    if Screen.Height mod cTileSize > 0 then
      Inc(YS);
    for X := 0 to XS do
      for Y := 0 to YS do
      begin
        R := Rect(
          X * cTileSize, Y * cTileSize, Succ(X) * cTileSize,
          Succ(Y) * cTileSize);
        Result.Canvas.CopyRect(R, Canvas, R);
      end;
  finally
    if Locked then
      Canvas.Unlock;
    ReleaseDC(0, Canvas.Handle);
    Canvas.Free;
  end;
end;

Kod: Tümünü seç

uses ...,jpeg,comobj;

eğer tüm ekranı değilde formu atıcaksan copyrect ile bmp resmi başka bi bmpye kopyalıyacaksın.

[tubaca]

yazdıgınız cevaplar için tsk. fakat suanda delphide bi sorun var bu nedenle dene sansım su an için yok.mege'ye bi sorum var: benim formum uzunlugu(heighti)1119(scrollbar)yazdıgın kodla ben tum formu(ekranda gorunmeyen kısmıda)excel'e atabilir miyim?
kolay gelsin..

[mege]

yok alamıyor
sadece ekranda görünen kısımlar
@oguzozturkun gönderdiği kodu inceledim, onla alabilir belki diye. oda ekran dışına çıkan yerleri alamıyor.

[tubaca]

ugrastıgınız cok tsk.ben biraz daha ugrasayım.ama bu konuda bir bilginiz varsa lutfen bana iletin.(bu hafta bu projeyi bitirmek istiyorum ve tek sorun bu yazdırma konusu)tekrar tşk.kolay gelsin

[mussimsek]

bence direk bir formu yazdırmak çok ekstra bir durumdur. Ne var bu forumun üzerinde, ne yazdırmaya çalışıyorsunuz??

Kolay gelsin.

[tubaca]

ben bir sipariş formu yazdırmaya çalısıyorum.Qreple denedim ama form sabit bi içeriği yok.musteri talebine gore eklenecek kısımlar var.aslında hesaplarıma gore 1 sayfa kadar bişi oluyor fakat ekranda gorunen kısım yazdırılıyor.(yarım sayfa kadar bişi)bircok yol denedim.bircok da yardım aldım.bu konuda tırmalamamam(sair in deyimiyle)gerktiği soylendim.exceli duyunca umutlandım. formda richeditler var.bitmapte bunlrın içeriği cıkmıyor.eger daha ayrıntılı isterseniz.biraz uzun ama anlatırım.
herkese kolay gelsin...

[mussimsek]

sanki biraz QR ile uğraşılarak, üstadın deyimiyle tırmalanarak olacakmış gibi. QR ile nerelerde takıldığını forumda bir aratın, bulamadığınız takılıdğınız noktaları yazın, bakalım.

Kolay gelsin.

[tubaca]

cok tsk.yarın gene ugrarım (buyuk bi ihtimalle )

[husonet]

Ben bu soruyu anlamadım okuyorum okuyorum Herhalde yaşlanıyorum

Şimdi Excel'e forum'un resminimi aktaracaksınız Bileşenlerdeki değerlerimi?
Şayet böyleyse kullanım amacınız nedir niçin Exel?

Kolay Gelsin...

[tubaca]

uzulmeyin belki ben derdimi tam anlatamıyorumdur.ben yuksekliği 1119 olan formumu yazdırmak istiyorum.ama (dogal olarak)ekranda gorunmeyen kısım yazdırılmıyor.form uzerindeki tum bilesenleri excele aktarıp yazdırabilirmişim ama kod yok.bu konuda yardım istemiştim.
bu arada Qrepe formdaki richeditlerin içerigi(bazı yerler dikkat cekmek için kalın buntoyla yazılıyor)aktarılamıyor bu cok onemli.bu nedenle qrep olmuyor.(aramalara baktım olmuyormus.gozumden kacmamıstır umarım)
belki componentcountla print.canvas.textout'u birlestirerek bişiler denemeyi dusunuyorum.umarım işe yarar...
herkese kolay gelsin

[aslangeri]

S.A.

Qrepe formdaki richeditlerin içerigi(bazı yerler dikkat cekmek için kalın buntoyla yazılıyor)aktarılamıyor bu cok onemli.bu nedenle qrep olmuyor.

QrRichtext i kullanmayı denedinmi
Gerçi ben kullanmadım ama öyle bi comp. var yani.
Kolay gelsin

[husonet]

Formunda Scroll bar aktif oluyormu?

Kolay Gelsin...

[tubaca]

merhaba once aslangeri arkadasa cevap vereyim:QRrichtexti zaten kullandım ama rich editin içeriğini aynen almıyor(yani kalın buntolar aktardıgımda normal fontla yazılıyor )
buarada form da scrollbar var zaten 1119 da onun range degeri
herkese kolay gelsin..