Den Inhalt des Aktuellen Textgadget ausdrucken?

Anfängerfragen zum Programmieren mit PureBasic.
Benutzeravatar
FISCHAUGE
Beiträge: 108
Registriert: 25.03.2005 21:07
Wohnort: Karlsruhe
Kontaktdaten:

Den Inhalt des Aktuellen Textgadget ausdrucken?

Beitrag von FISCHAUGE »

Also folgendes, wie bekomme ich es hin, das ich denn inhalt des Textgadget ausdrucken kann?

Ich wollte in meinem Fenster dazu ein Button verwenden, das bei anklicken die Druckerauswahl öffnet, und den inhalt des Textgadget ausdruckt.

Habe leider weder im CodeArchiv noch bei jaBa was passendes gefunden. :freak:

Vielen dank im voraus!
Na alles Senkrecht?
tranquil
Beiträge: 117
Registriert: 22.09.2004 22:07
Kontaktdaten:

Beitrag von tranquil »

Such mal im Forum oder auf PureArea nach der LPrint Userlib. Damit kannst Du ganz einfach formatierte leicht und schnell drucken ohne umständlich erst auf irgendwelchen BitMaps rumpixeln zu müssen.

Gruß
Benutzeravatar
FISCHAUGE
Beiträge: 108
Registriert: 25.03.2005 21:07
Wohnort: Karlsruhe
Kontaktdaten:

Beitrag von FISCHAUGE »

Ne mit dem komme ich auch net weiter!

Gehen wir davon aus ich habe ein Textgadget und ein button!
Ich klicke auf das Button und er druck den inhalt des gadget.

Das muss darf doch nicht so schwer sein, oder vielleicht doch??

:?
Na alles Senkrecht?
Benutzeravatar
benpicco
Beiträge: 391
Registriert: 01.10.2004 15:32
Wohnort: im Code
Kontaktdaten:

Beitrag von benpicco »

ist es auch nicht:

Code: Alles auswählen

If waitwindowevent=#printbutton 
  text$=GetGadgetText(#textgadget) 
  If DefaultPrinter() 
    StartPrinting("bla") 
    StartDrawing(PrinterOutput()) 
    Locate(1,1) 
    DrawText(text$) 
    StopDrawing() 
    StopPrinting() 
EndIf
Johann Wolfgang von Geothe hat geschrieben:Wie dieses oder jenes Wort geschrieben wird, darauf kommt es doch eigentlich nicht an, sondern darauf, daß die Leser verstehen, was man damit sagen wollte.
Benutzeravatar
Batze
Beiträge: 1492
Registriert: 03.06.2005 21:58
Wohnort: Berlin
Kontaktdaten:

Beitrag von Batze »

Und was ist mit Zeilenumbrüchen?
Hier sind meine Codes (aber die Seite geht gerade nicht):
http://www.basicpure.de.vu
Benutzeravatar
FISCHAUGE
Beiträge: 108
Registriert: 25.03.2005 21:07
Wohnort: Karlsruhe
Kontaktdaten:

Beitrag von FISCHAUGE »

Ja das mit dem Zeilenumbruch chr(13) und dem space chr(10) ist so eine sache, wie kann ich ihm sagen das er das beachten soll?


Habe es so mal versucht aber geht leider nicht:

Code: Alles auswählen


   text$= text$+GetGadgetText(1)+Chr(13)+Chr(10)
  If  PrintRequester()
    StartPrinting("BF2S") 
    StartDrawing(PrinterOutput()) 
    Locate(1,1) 
    DrawText(text$) 
    StopDrawing() 
    StopPrinting() 
EndIf
Weiss jemand wie man das hinbekommt! Der Code ansich ist wirklich einfach und leicht einzubauen, aber wenn jetzt das mit dem zeilenumbruch noch gehen würde wer es echt super!
Na alles Senkrecht?
Benutzeravatar
Batze
Beiträge: 1492
Registriert: 03.06.2005 21:58
Wohnort: Berlin
Kontaktdaten:

Beitrag von Batze »

Such mal im Forum, ich glaub da war wars.
Aber nicht hauen wenn nichts da ist. :wink:
Hier sind meine Codes (aber die Seite geht gerade nicht):
http://www.basicpure.de.vu
Antworten