Hallo Klaus_1963,
ich verstehe Dich schon, allerdings nicht zur Sicherung des Codes sondern um ihn noch einmal in Ruhe zu lesen, auch wenn kein PC in der Nähe ist, habe ich mir ein Programm geschrieben welches ich als Werkzeug konfiguriert habe. Mit Hilfe dessen ich jederzeit meine Code Ausdrucken könnte. Wie gesagt könnte, kommt aber sehr, sehr selten vor.
Code: Alles auswählen
; IDE - Source drucken
;~~~~~~~~~~~~~~~~~~~~~~
EnableExplicit
Define.a pbZaehler
Define.s pbValue
Procedure FileLoad(vFile.s, List vValue.s())
If ReadFile(0, vFile)
While Not Eof(0)
AddElement(vValue())
vValue() = ReadString(0)
Wend
CloseFile(0)
EndIf
EndProcedure
Procedure PrintKopf(vFile.s)
DrawingFont(FontID(0))
DrawText(100, 100, vFile, #Black)
DrawingFont(FontID(1))
EndProcedure
Procedure FilePrint(vFile.s, List vValue.s())
Protected pValue.s, pX.i, pY.i = 400
If PrintRequester()
If StartPrinting("PureBasic Sourcedruck")
LoadFont(0, "Arial", 75)
LoadFont(1, "Arial", 50)
If StartDrawing(PrinterOutput())
DrawingMode(#PB_2DDrawing_Transparent)
PrintKopf(vFile)
ForEach vValue()
pX = 100
pValue = RSet(Str(ListIndex(vValue())+1),4, "0") + ": " + vValue()
Repeat
DrawText(pX, pY, Left(pValue, 140), #Black)
If (pY=6600)
NewPrinterPage()
PrintKopf(vFile)
pY = 400
Else
pY + 100
EndIf
pValue = Mid(pValue, 140)
pX = 300
Until Not Len(pValue)
Next
StopDrawing()
EndIf
StopPrinting()
EndIf
EndIf
EndProcedure
Procedure Main(vFile.s)
Protected NewList pValue.s()
If vFile
FileLoad (vFile, pValue())
FilePrint(vFile, pValue())
Else
MessageRequester("InfoBox", "Der Sourcecode konnte nicht gedruckt werden." + #LF$ + "Sourcecode gespeichert?", #MB_ICONEXCLAMATION)
EndIf
EndProcedure
For pbZaehler=1 To CountProgramParameters()
If pbValue: pbValue + Chr(32): EndIf
pbValue + ProgramParameter()
Next pbZaehler
Main(pbValue)
End
Vielleicht hilft er Dir ja.
Leider weiß ich immer noch nicht wie man ein Bild hier einbinden kann, wenigstens klappt es bei mir nicht, so das hoffentlich, wenn du es brauchst, jemand anders dir zeigen kann wie du den Code unter Werkzeuge einbindest.