Page 1 of 2 1 2 LastLast
Results 1 to 15 of 19

Thread: Printen in Windows10

  1. #1
    Senior Member
    Join Date
    Sep 2004
    Location
    BELGIE(Vilvoorde)
    Posts
    685

    Question Printen in Windows10

    CodeTyphon 7.1 = Windows 10.

    Ik heb al diverse pogingen gedaan om in Windows 10 een scherafdruk van een form te printen.
    Als ik mijn exe gebruik in Linux(via Wine) dan werkt de print.
    Met Windows 10 kan ik wel andere taken printen, zoals documenten met Notepad, enz...
    In mijn programma worden er ook (met LazReport) diverse rapporten afgedrukt, die zowel in Linux als in Windows 10 werken.
    Er is dus in Windows 10 een probleem in het OS of in driver van HP-Officejet-Pro-9010.
    Heb met HP-Docter getest en er waren geen problemen!

    Misschien zijn er nog personene die dit probleem kennen?


    Code:
    procedure TForm1.BitBtn3Click(Sender: TObject);
    var
      myBitMap : TBitMap;
      rct: TRect;
      HScaleFactor, VScaleFactor: Single;
    begin
      if not PrintDialog1.Execute then
        Exit;
      HScaleFactor:=Printer.XDPI/Screen.PixelsPerInch;
      VScaleFactor:=Printer.YDPI/Screen.PixelsPerInch;
      myBitMap := TBitMap.Create;
      try
        myBitMap.LoadFromDevice(Canvas.Handle);
        rct:=Rect(0, 0, trunc(myBitMap.Width*HScaleFactor), trunc(myBitMap.Height*VScaleFactor));
        Printer.Orientation:=poLandscape;
        Printer.BeginDoc;
        try
          Printer.Canvas.StretchDraw(rct, myBitMap);
        finally
          Printer.EndDoc;
        end;
      finally
        myBitMap.Free;
      end;
    end;

  2. #2
    Fornicatorus Formicidae VideoRipper's Avatar
    Join Date
    Mar 2005
    Location
    Vicus Saltus Orientalem
    Posts
    5,708
    Kent CodeTyphon de standaard Print-method van een form niet?
    Delphi Code:
    1. procedure TForm1.Button1Click(Sender: TObject);
    2. begin
    3.   if PrintDialog1.Execute(Handle) then
    4.   begin
    5.     PrintScale := poPrintToFit;
    6.     Print;
    7.   end;
    8. end;
    TMemoryLeak.Create(Nil);

  3. #3
    Senior Member
    Join Date
    Sep 2004
    Location
    BELGIE(Vilvoorde)
    Posts
    685

    Exclamation

    VideoRipper, Ik ben geen programmeur !!!

    Volgens mij kent CodeTyphon of Lazarus het commando 'print' niet.
    Is dit niet iets van Delphi ?

    Zijn er elementen in uw code die ontbreken, want met copy/paste werkt de procedure niet.

  4. #4
    Fornicatorus Formicidae VideoRipper's Avatar
    Join Date
    Mar 2005
    Location
    Vicus Saltus Orientalem
    Posts
    5,708
    Oeh, dat zou ik niet durven zeggen: onder Delphi werkt het feilloos (is altijd al zo geweest, misschien anders de PrintScale-regel verwijderen?) en ga er altijd van uit dat FPC vrijwel identiek is.
    Maar misschien ook niet, wie zal het zeggen?

    Quote Originally Posted by seghele View Post
    VideoRipper, Ik ben geen programmeur !!!
    Ik zie u deze bewering al 15 jaar doen, maar vraag me dan af wat u op deze website doet: dit is een programmeurswebsite.
    Dat u het niet als professie doet, doet niet terzake: ik doet dit pas 8 jaar voor mijn inkomen, terwijl ik al 35 jaar programmeer.
    TMemoryLeak.Create(Nil);

  5. #5
    Senior Member
    Join Date
    Sep 2004
    Location
    BELGIE(Vilvoorde)
    Posts
    685

    Exclamation

    VideoRipper,
    raag me dan af wat u op deze website doet: dit is een programmeurswebsite.
    Deze info werd mij nog nooit opgelegd.
    Voor mij is "programmeren" een pure hobby om mijn grijze hersenen positief bezig te houden.
    Ben eerst begonnen met dBase, Paradox, Delphi, Lazarus en nu "CodeTyphon v7.1".
    Tot op heden kon ik op fantastische steun rekenen met aangeboden code van meerdere programmeurs.
    Een voorbeeld is RVK (Rik) die steeds op een vriendelijke manier zijnvolle steun heeft gegeven, zonder morren of klagen.
    Heb via zelfstudie, knutselwerk en veel code van NL-Delphi, diverse kleine programma's kunnen in mekaar steken.
    Op Google heb ik ook veel kunnen ophalen.
    Deze programma's gebruik ik nog steeds regelmatig.
    Besluit, misschien kan u mij op weg zetten naar een forum waar mensen zoals ik hun gading kunnen vinden.
    Hierdoor zal ik u en uw mede-programmeurs niet meer lastig vallen en geen beslag leggen op uw kostbare tijd.
    Sorry voor mijn aanwezigheid op dit forum gedurende al die jaren.

  6. #6
    Fornicatorus Formicidae VideoRipper's Avatar
    Join Date
    Mar 2005
    Location
    Vicus Saltus Orientalem
    Posts
    5,708
    Nou sorry hoor, maar nou loopt u wel heel erg hard van stapel...

    Door de uitroeptekens achter de zin "Ik ben geen programmeur" impliceert u dat u niet programmeert.
    Dat doet u wel en zo te zien, en ik hoop naar volle tevredenheid, met plezier en voor de hobby.

    Ook al doet u het voor de hobby: u bent een programmeur.
    Misschien denkt u dat uw niveau niet bijzonder is (dat kan ik verder niet beoordelen), maar u bent en blijft wel een programmeur.
    Ik heb genoeg "Professionele" (mensen die het voor hun werk doen) collega's gehad die qua code werkelijk beneden alle peil schreven en denk zelfs dat uw kunde, kennis, inzet en uithoudingsvermogen boven die van hen uitstijgt.

    Niemand wil u hier kwijt, niemand zegt dat u hier niet thuishoort (ook al denkt u dat te kunnen lezen in mijn vorige reactie), maar ik vind (en dat is inderdaad wel mijn mening), dat u uzelf te laag inschat en u zich, ten onrechte, probeert te verexcuseren, want het is simpelweg niet waar.

    U rijdt, dus u bent een chauffeur (ook al doet u dat niet voor uw werk), uw schrijft code, dus bent programmeur (ook al doet u dat niet voor uw werk).
    TMemoryLeak.Create(Nil);

  7. #7
    Seghele, ik ken VideoRipper als een vriendelijke man en denk dat zijn woorden wat onzorgvuldig zijn geformuleerd.

    Zoals ik het begrijp: ieder die op deze webstek terecht komt heeft een programmeer-uitdaging die advies behoeft. Wanneer een dergelijk probleem zich voordoet mag die vraag worden gesteld - (professioneel) programmeur of (hobby) programmeur.
    Ik ben er van overtuigd dat je een (hobby) programmeur bent met duidelijk doelen: werkzame programma's maken.

    Wat mij betreft dus: welkom op deze site.
    Wij allemaal stuntelen met het in elkaar zetten van programma's.
    Maar: zeg niet dat je geen programmeur bent, want als je programmeert bèn je programmeur.

    Ah, gelukkig, Videoripper was me net voor ...

  8. #8
    Fornicatorus Formicidae VideoRipper's Avatar
    Join Date
    Mar 2005
    Location
    Vicus Saltus Orientalem
    Posts
    5,708
    Misschien reageerde ik wat fel, waarvoor mijn welgemeende excuses.
    TMemoryLeak.Create(Nil);

  9. #9
    Ik heb je code van post #1 (eerste bericht) rechtstreeks gecopieerd, en die doet het bij mij perfect!
    (W10, draadloze verbinding met printer, Lazarus 2.0.8).

    Het commando (Form.)'print' lijkt in Lazarus afwezig.

  10. #10
    Silly member NGLN's Avatar
    Join Date
    Aug 2004
    Location
    Werkendam
    Posts
    5,133
    Seghele, je bent absoluut welkom op NLDelphi, ook als hobbyist. Ik had overigens dezelfde opmerking als VideoRipper willen/kunnen maken, maar dan met een paar smilies erachter... Want zie, ook al vind je jezelf niet een "echte" programmeur, jouw bijdragen hier getuigen waarachtig toch echt van het tegendeel en dat maakt zo'n kreet simpelweg wat... ongeloofwaardig.
    (Sender as TNLDUser).Signature := 'Groeten van Albert';

  11. #11
    Senior Member
    Join Date
    Sep 2004
    Location
    BELGIE(Vilvoorde)
    Posts
    685

    Lightbulb

    OK, ik tracht het te snappen wat jullie willen zeggen.
    Ben de 70 voorbij en mijn grijze hersenen werken trager.
    Als men in Vlaanderen van een programmeur spreekt, dan is dit iemand die een degelijke schoolopleiding heeft genoten in het programmeren of iemand die een bijzonder vermogen heeft om via zelfstudie een programmeertaal aan te leren en te beheersen.
    Dit is in mijn geval niet echt van toepassing.
    Mijn persoonlijke kennis van Pascal is minimaal en toch voldoende om simpele code te laten werken.
    Weliswaar tracht ik, met de hulp van professionele programmeurs en via Google, een werkend programma in elkaar te zetten.
    Het is dank zij meerdere programmeurs op uw forum die gratis "volledig werkende code" doorgeven zodat ik een programma kan vervolledigen.
    Hiervoor ben ik oprecht zeer dankbaar. ( Rvk, enz.)
    Ik hoop dat ik daar verder op kan rekenen.
    En dat er meer dienstverlenende programmeurs in Nederland wonen dan in Vlaanderen is een echtheid!
    Ik zal vanaf nu op uw forum de titel ‘amateur programmeur’ dragen (het mag nog toch een beetje Vlaams klinken).


  12. #12
    Quote Originally Posted by seghele View Post
    Ik zal vanaf nu op uw forum de titel ‘amateur programmeur’ dragen (het mag nog toch een beetje Vlaams klinken).


    Krijg je een foutmelding bij het printen?
    Wordt er überhaupt iets geprint?

    Bart
    (ook amateur programmeur)

  13. #13
    Even een ogenblik met een helder moment (heb ik ook nodig op de grens van de 70 jarige leeftijd ):

    Heb je de code gecompileerd met 32 bits of met 64 bits? Heb je W10 op 32 bits of 64 bits?
    Ik weet niet of het hier uitmaakt en kan dit nu jammer genoeg niet testen.

    Je kunt met Lazarus een 'target' kiezen: 32 of 64 bits.
    (Bart of marcov kunnen je dat vast beter uitleggen dan ik...)

  14. #14
    Senior Member
    Join Date
    Sep 2004
    Location
    BELGIE(Vilvoorde)
    Posts
    685

    Question

    Hallo,
    Windows 10 - 64 bit.
    Je kunt met Lazarus een 'target' kiezen: 32 of 64 bits.
    In CodeTyphon worden er standaard 2 programma's gemaakt.
    Een CodeTyphon voor 32 bit en een CodeTyphon voor 64 bit.
    Het is een alternatief voor Lazarus, echter met een 'BIG BUILD' mogelijkheid, zodat er enorm veel components rechtstreeks als 'default' aanwezig zijn, wat niet het geval is bij Lazarus.
    Ik gebruik CodeTyphon in 64 bit.

    De printer (HP-Officejet-Pro-9019) slaat aan, maar er wordt niet geprint.
    In de printerwachtlijst staat er wel een te af te drukken bestand.
    Zelfs met 'herstarten' in die lijst, gaat het niet.
    Moet dus telkens op 'annuleren' drukken om de printlijn te verwijderen.

  15. #15
    En "gewoon een bitmap" printen met de code zoals boven: werkt dat wel?

    Bart

Page 1 of 2 1 2 LastLast

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •