Ga naar inhoud

Delphi; specifieke delen laten printen


Aanbevolen berichten

Eey Ik ben bezig met een programmatje te schrijven in Delphi, en daarvoor wil ik een Printer-optie maken waarmee men dus enkele gegevens van het programma uit kan laten printen. Het is dus niet de bedoeling dat de hele zooi uitgeprint wordt, slechts enkele zaken zoals EditNaam.Text etc Voorlopig kom ik met een lastig stuk code niet verder dan een lege pagina, of een wachtrij voor mijn printer van miljarden pagina's... allebei niet bepaald wat ik wil. Hoe kan ik dit in een stuk code zetten voor een ButtonClick? Ik heb nu onder meer geprobeerd iets te brouwen met de printDialog Ik heb nu: [code:1:08ecc101b5]procedure TTForm1.ButtonPrintClick(Sender: TObject); begin printDialog := TPrintDialog.Create(TForm1); printDialog.MinPage := 1; printDialog.MaxPage := 1; printDialog.ToPage := 1; printDialog.Options := [poPageNums]; if printDialog.Execute then begin Printer.Orientation := poLandscape; Printer.Title := 'Bestelling'; Printer.Copies := printDialog.Copies; Printer.BeginDoc; Printer.EndDoc; end;[/code:1:08ecc101b5] Alvast bedankt
Link naar reactie
Snap ik ook nog niet zo veel van... Had die site zelf al gevonden maar als ik bijvoorbeeld het volgende probeer krijg ik nog steeds een lege pagina. Wat vergeet ik hier? Kan iemand me helpen? [code:1:9fc0ea48a8]procedure TTForm1.ButtonPrintClick(Sender: TObject); begin printDialog := TPrintDialog.Create(TForm1); printDialog.MinPage := 1; printDialog.MaxPage := 1; printDialog.ToPage := 1; printDialog.Options := [poPageNums]; if printDialog.Execute then begin Printer.Orientation := poLandscape; Printer.Title := 'Bestelling'; Printer.Copies := printDialog.Copies; Printer.BeginDoc; Printer.Canvas.TextOut(5,5, EditBestelNaam.Text ); Printer.EndDoc; end; end;[/code:1:9fc0ea48a8]
Link naar reactie

Om een reactie te plaatsen, moet je eerst inloggen

Gast
Reageer op dit topic

×   Geplakt als verrijkte tekst.   Herstel opmaak

  Er zijn maximaal 75 emoji toegestaan.

×   Je link werd automatisch ingevoegd.   Tonen als normale link

×   Je vorige inhoud werd hersteld.   Leeg de tekstverwerker

×   Je kunt afbeeldingen niet direct plakken. Upload of voeg afbeeldingen vanaf een URL in

×
×
  • Nieuwe aanmaken...