QReport i problem sa štampanjem

[ chips @ 07.04.2010. 13:33 ] @

Imam aplikaciju koja daje izveštaj u QReportu. Odnosno njegov preview se uredno pokaže. Kada kliknem na dugme gore da pokrenem štampu štampač će prihvatiti i odštampati, ali posle nekog broja puta štampe, progresbar će pokazati da je štampa generisana, a štampač neće dati nikakv odziv, kao da štampa nije ni zadata. Prvo sam pomislio da je do drajvera, ili tako nečega. Kada se ovo dogodi pokrenem WORD i iz njega uredno odštampam dokument. Vratim se na ovu aplikaciju i ništa, progres bar pokaže kao da je generisao štampu ali papir ne izlazi niti se u printer windowsu vidi da je neka štampa na čekanju.

Verzija QuickReporta je 3.0.9 ako je u opšte to u pitanju, a ne znam na šta drugo da pomislim, kada iz ostalih programa odštampa bez problema.

[ captPicard @ 07.04.2010. 14:31 ] @

Probaj skinuti noviju verziju.

[ sasaz2008 @ 07.04.2010. 14:45 ] @

Poznato je da je QR koji dolazi uz Delphi malo bagovit (ništa strašno).
Probaj da diasable-uješ prikazivanje progresbar-a.

Sa kupljenim QR je druga priča... Ipak, ako želiš da kupiš licencu, daleko bolji izbor po meni je FastReport.

[ bakiero @ 29.03.2016. 14:11 ] @

Zdravo

Imam problem koji ne znam ni kako je nastao ni kako da ga rešim. Koristim bazu podataka koju
sam sam napravio i koristim je dugo sa stalnim prilagođavanjima.
Naime pre nekoliko dana počeo je da mi štampa izveštaje i forme sa premalim fontom.
Kad prebacim istu bazu kod kuće na lap top sve je OK. također i kod pretvaranja izveštaja u
PDF - e tada dobijem makimalno sabijena slova tako da ne može da se pročita. Problem izgleda
nije u bazi nego neka promena u windowsu 7.
Evo kako izgleda izveštaj u PDF.

Može li tu šta da se uradi ?

[ captPicard @ 29.03.2016. 19:55 ] @

To je rađeno u Delphi-u + QuickReport? Da li si mjenjao fontove u windowsima? Ilisi možda mijenjao scale?

Ovo kaže google:

I found a working solution! Patch for QRPrntr.pas:

Code:
  procedure TQRPrinter.CreateMetafileCanvas;

  function scaleToNativeDeskRes(pVal: Integer): Integer;
  var
   tTemp: HDC;
  begin
    tTemp := GetDC(0);
    try
      Result := Round((pVal * GetDeviceCaps(tTemp, VERTRES)) / GetDeviceCaps(tTemp, DESKTOPVERTRES));
    finally
      ReleaseDC(0, tTemp);
    end;
  end;

begin
...
  FMetafile.Width := scaleToNativeDeskRes(XSize(PaperWidthValue));
  FMetafile.Height := scaleToNativeDeskRes(YSize(PaperLengthValue));
  FCanvas := TMetafileCanvas.Create(FMetafile, 0);
  FCanvas.Font.PixelsPerInch := MetafileDPI;
...
end;

Šta se tiče exporta u PDF, ako koristiš SynPDF, probaj napraviti slijedeće:

Code:
pdf.UseUniScribe := TRUE;

[ bakiero @ 30.03.2016. 12:39 ] @

Ja Vam se izvinjavam nisam naveo ali radi u običnoj Access bazi. Access 2010. Naveo sam Vas na

pogrešan put. Dakle, baza i dalje radi super na nakom drugom kompjuteru, ali na ovom sada na poslu

mi daje rezultate koje sam pomenuo u prethodnom pitanju. Najgore je što sam to već jednom rešio i sada

ne mogu da se setim šta sam uradio da se ubijem.

da li imate neki predlog ?

Hvala

Pozdrav

Miroslav

[ savkic @ 30.03.2016. 14:20 ] @

> Ja Vam se izvinjavam nisam naveo ali radi u običnoj Access bazi. Access 2010. Naveo sam Vas na
> pogrešan put. Dakle, baza i dalje radi super na nakom drugom kompjuteru, ali na ovom sada na poslu
> mi daje rezultate koje sam pomenuo u prethodnom pitanju. Najgore je što sam to već jednom rešio i sada
> ne mogu da se setim šta sam uradio da se ubijem.

Problem sigurno nije do baze tako da savet koji si dobio je adekvatan. Dakle, da li je nesto menjano na tom racunaru, mozda je instaliran novi stampac, promenjen default, promenjena rezolucija na njemu... Probaj da instaliras neki PDF virtuelni stampac i njega stavis kao default.