Einfach den Fensterinhalt drucken

[gnaps]

Hallo Forum,

heute muss ich mich an Euch wenden, denn ich habe Probleme mit dem Drucken.

Ich schreibe hier für unsere Firma eine Datenverwaltung, die Verwaltung der Daten über SQL funkt schon,
jedoch habe ich Probleme beim ausdrucken.

Ich möchte ein DIN A4 Formular laden, als Hintergrund im Fenster anzeigen, hier an den richtigen Stellen
die Daten anzeigen lassen und dann das ganze ausdrucken.

Wie stelle ich das an.

Das Formular einladen und die Datenfelder an der richtigen Pos steht schon alles, wie drucke ich das ganze jetzt aus ??

Gruß
gnaps

[ts-soft]

Statt das Formular auf das Fenster zu malen, besser auf ein ImageGadget in Fenstergrösse,
dann kannst Du folgenden Code verwenden:

Code: Alles auswählen

Procedure PrintWindow(nImage)
  
  If PrintRequester()
    If StartPrinting("Print window")
      If StartDrawing(PrinterOutput())
        DrawImage(ImageID(nImage),ImageWidth(nImage),ImageHeight(nImage))
        StopDrawing()
      EndIf
      StopPrinting()
    EndIf
  EndIf
EndProcedure

Evtl. das Image noch Resizen, sonst haste einen sehr kleinen Ausdruck

[gnaps]

Hi,

vielen Dank für die schnelle Antwort,
nur wie bekomme ich das ImageGadgets und die Textgadgets in nImage ??

Gruß
gnaps

[ts-soft]

Nix Gadget, alles malen mit der 2DDrawing lib von PB.

Ansonsten hilft vielleicht diese API: PrintWindow
Beispiele hierzu im engl. Formum, die funktionieren bei mir allerdings nicht,
so das ich da nicht helfen kann.