How to print VisualLISP code in color

I am not able to print the context depending VisualLISP code as an coloured print.

Someone there to give a hint ?

Thanks Joni

Could this be a printer related problem?

I f you mean what I think..

Then you should ask LeeMac he has made himself a routine that prints the code in specific colors when het posts its on this forum. I don't know how it works but I know it does.

Do you mean like this JONI?

[i][color=#990099];; Block Counter by Lee McDonnell (Lee Mac) ~ 22.08.2009[/color][/i]
[i][color=#990099];; Copyright © August 2009[/color][/i]

[i][color=#990099];; Will Count all instances of a block, including nested.[/color][/i]

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] BlkCount [b][color=RED]([/color][/b]Blk [b][color=BLUE]/[/color][/b] i j ss *blk[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] i [b][color=#009900]0[/color][/b] Blk [b][color=RED]([/color][/b][b][color=BLUE]strcase[/color][/b] Blk[b][color=RED])[/color][/b] j [b][color=#009900]-1[/color][/b]
       *blk [b][color=RED]([/color][/b][b][color=BLUE]vla-get-Blocks[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]vla-get-ActiveDocument[/color][/b]
                [b][color=RED]([/color][/b][b][color=BLUE]vlax-get-acad-object[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

 [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] GetNest [b][color=RED]([/color][/b]Obj Nme[b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcase[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vla-get-Name[/color][/b] Obj[b][color=RED])[/color][/b][b][color=RED])[/color][/b] Nme[b][color=RED])[/color][/b]
        [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] i [b][color=RED]([/color][/b][b][color=BLUE]1+[/color][/b] i[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]vlax-for[/color][/b] Sub Obj
     [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#ff00ff]"AcDbBlockReference"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vla-get-ObjectName[/color][/b] Sub[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b]GetNest [b][color=RED]([/color][/b][b][color=BLUE]vla-item[/color][/b] *blk [b][color=RED]([/color][/b][b][color=BLUE]vla-get-Name[/color][/b] Sub[b][color=RED])[/color][/b][b][color=RED])[/color][/b] Nme[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

 [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] ss [b][color=RED]([/color][/b][b][color=BLUE]ssget[/color][/b] [b][color=#ff00ff]"_X"[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=#009900]0[/color][/b] . [b][color=#ff00ff]"INSERT"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]while[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] ent [b][color=RED]([/color][/b][b][color=BLUE]ssname[/color][/b] ss [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] j [b][color=RED]([/color][/b][b][color=BLUE]1+[/color][/b] j[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b]GetNest
       [b][color=RED]([/color][/b][b][color=BLUE]vla-item[/color][/b] *blk [b][color=RED]([/color][/b][b][color=BLUE]cdr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]2[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entget[/color][/b] ent[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] Blk[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 
 i[b][color=RED])[/color][/b]

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:test [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] str lst tdef[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]while[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] str [b][color=RED]([/color][/b][b][color=BLUE]getstring[/color][/b] [b][color=BLUE]t[/color][/b] [b][color=#ff00ff]"\nSpecify Block Name <All> : "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b] [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#ff00ff]""[/color][/b] str[b][color=RED])[/color][/b]
            [b][color=RED]([/color][/b][b][color=BLUE]while[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tdef [b][color=RED]([/color][/b][b][color=BLUE]tblnext[/color][/b] [b][color=#ff00ff]"BLOCK"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]null[/color][/b] tdef[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
              [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] lst [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cdr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]2[/color][/b] tdef[b][color=RED])[/color][/b][b][color=RED])[/color][/b] lst[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=BLUE]nil[/color][/b][b][color=RED])[/color][/b]
           [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]snvalid[/color][/b] str[b][color=RED])[/color][/b]
                 [b][color=RED]([/color][/b][b][color=BLUE]tblsearch[/color][/b] [b][color=#ff00ff]"BLOCK"[/color][/b] str[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
            [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] lst [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b] str[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=BLUE]nil[/color][/b][b][color=RED])[/color][/b]
           [b][color=RED]([/color][/b][b][color=BLUE]t[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#ff00ff]"\n** Block not Found **"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] mstr [b][color=RED]([/color][/b][b][color=BLUE]+[/color][/b] [b][color=#009900]5[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]apply[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]max[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]strlen[/color][/b] lst[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]             
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=RED]([/color][/b]Pad [b][color=#ff00ff]"\n Block"[/color][/b] [b][color=#009900]32[/color][/b] mstr[b][color=RED])[/color][/b] [b][color=#ff00ff]"| Count"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=RED]([/color][/b]Pad [b][color=#ff00ff]"\n "[/color][/b] [b][color=#009900]45[/color][/b] mstr[b][color=RED])[/color][/b] [b][color=RED]([/color][/b]Pad [b][color=#ff00ff]"|"[/color][/b] [b][color=#009900]45[/color][/b] [b][color=#009900]10[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

 [b][color=RED]([/color][/b][b][color=BLUE]foreach[/color][/b] x lst
   [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] i [b][color=RED]([/color][/b]Blkcount x[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b]
       [b][color=RED]([/color][/b]Pad [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#ff00ff]"\n "[/color][/b] x[b][color=RED])[/color][/b] [b][color=#009900]46[/color][/b] mstr[b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b]Pad [b][color=#ff00ff]"|"[/color][/b] [b][color=#009900]46[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]-[/color][/b] [b][color=#009900]10[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strlen[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]itoa[/color][/b] i[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]itoa[/color][/b] i[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]        

 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] Pad [b][color=RED]([/color][/b]Str Chc Len[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]while[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]<[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strlen[/color][/b] Str[b][color=RED])[/color][/b] Len[b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] Str [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] Str [b][color=RED]([/color][/b][b][color=BLUE]chr[/color][/b] Chc[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 Str[b][color=RED])[/color][/b]

Do you mean like this JONI?

 

[i][color=#990099];; Block Counter by Lee McDonnell (Lee Mac) ~ 22.08.2009[/color][/i]
[i][color=#990099];; Copyright © August 2009[/color][/i]

[i][color=#990099];; Will Count all instances of a block, including nested.[/color][/i]

[b][color=red]([/color][/b][b][color=blue]defun[/color][/b] BlkCount [b][color=red]([/color][/b]Blk [b][color=blue]/[/color][/b] i j ss *blk[b][color=red])[/color][/b]
 [b][color=red]([/color][/b][b][color=blue]vl-load-com[/color][/b][b][color=red])[/color][/b]
 [b][color=red]([/color][/b][b][color=blue]setq[/color][/b] i [b][color=#009900]0[/color][/b] Blk [b][color=red]([/color][/b][b][color=blue]strcase[/color][/b] Blk[b][color=red])[/color][/b] j [b][color=#009900]-1[/color][/b]
       *blk [b][color=red]([/color][/b][b][color=blue]vla-get-Blocks[/color][/b]
              [b][color=red]([/color][/b][b][color=blue]vla-get-ActiveDocument[/color][/b]
                [b][color=red]([/color][/b][b][color=blue]vlax-get-acad-object[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]

 [b][color=red]([/color][/b][b][color=blue]defun[/color][/b] GetNest [b][color=red]([/color][/b]Obj Nme[b][color=red])[/color][/b]
   [b][color=red]([/color][/b][b][color=blue]and[/color][/b] [b][color=red]([/color][/b][b][color=blue]eq[/color][/b] [b][color=red]([/color][/b][b][color=blue]strcase[/color][/b] [b][color=red]([/color][/b][b][color=blue]vla-get-Name[/color][/b] Obj[b][color=red])[/color][/b][b][color=red])[/color][/b] Nme[b][color=red])[/color][/b]
        [b][color=red]([/color][/b][b][color=blue]setq[/color][/b] i [b][color=red]([/color][/b][b][color=blue]1+[/color][/b] i[b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]
   [b][color=red]([/color][/b][b][color=blue]vlax-for[/color][/b] Sub Obj
     [b][color=red]([/color][/b][b][color=blue]if[/color][/b] [b][color=red]([/color][/b][b][color=blue]eq[/color][/b] [b][color=#ff00ff]"AcDbBlockReference"[/color][/b] [b][color=red]([/color][/b][b][color=blue]vla-get-ObjectName[/color][/b] Sub[b][color=red])[/color][/b][b][color=red])[/color][/b]
       [b][color=red]([/color][/b]GetNest [b][color=red]([/color][/b][b][color=blue]vla-item[/color][/b] *blk [b][color=red]([/color][/b][b][color=blue]vla-get-Name[/color][/b] Sub[b][color=red])[/color][/b][b][color=red])[/color][/b] Nme[b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]

 [b][color=red]([/color][/b][b][color=blue]if[/color][/b] [b][color=red]([/color][/b][b][color=blue]setq[/color][/b] ss [b][color=red]([/color][/b][b][color=blue]ssget[/color][/b] [b][color=#ff00ff]"_X"[/color][/b] [b][color=darkred]'[/color][/b][b][color=red]([/color][/b][b][color=red]([/color][/b][b][color=#009900]0[/color][/b] . [b][color=#ff00ff]"INSERT"[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]
   [b][color=red]([/color][/b][b][color=blue]while[/color][/b] [b][color=red]([/color][/b][b][color=blue]setq[/color][/b] ent [b][color=red]([/color][/b][b][color=blue]ssname[/color][/b] ss [b][color=red]([/color][/b][b][color=blue]setq[/color][/b] j [b][color=red]([/color][/b][b][color=blue]1+[/color][/b] j[b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]
     [b][color=red]([/color][/b]GetNest
       [b][color=red]([/color][/b][b][color=blue]vla-item[/color][/b] *blk [b][color=red]([/color][/b][b][color=blue]cdr[/color][/b] [b][color=red]([/color][/b][b][color=blue]assoc[/color][/b] [b][color=#009900]2[/color][/b] [b][color=red]([/color][/b][b][color=blue]entget[/color][/b] ent[b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b] Blk[b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]

 i[b][color=red])[/color][/b]

[b][color=red]([/color][/b][b][color=blue]defun[/color][/b] c:test [b][color=red]([/color][/b][b][color=blue]/[/color][/b] str lst tdef[b][color=red])[/color][/b]
 [b][color=red]([/color][/b][b][color=blue]while[/color][/b]
   [b][color=red]([/color][/b][b][color=blue]progn[/color][/b]
     [b][color=red]([/color][/b][b][color=blue]setq[/color][/b] str [b][color=red]([/color][/b][b][color=blue]getstring[/color][/b] [b][color=blue]t[/color][/b] [b][color=#ff00ff]"\nSpecify Block Name <All> : "[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]
     [b][color=red]([/color][/b][b][color=blue]cond[/color][/b] [b][color=red]([/color][/b][b][color=red]([/color][/b][b][color=blue]eq[/color][/b] [b][color=#ff00ff]""[/color][/b] str[b][color=red])[/color][/b]
            [b][color=red]([/color][/b][b][color=blue]while[/color][/b] [b][color=red]([/color][/b][b][color=blue]setq[/color][/b] tdef [b][color=red]([/color][/b][b][color=blue]tblnext[/color][/b] [b][color=#ff00ff]"BLOCK"[/color][/b] [b][color=red]([/color][/b][b][color=blue]null[/color][/b] tdef[b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]
              [b][color=red]([/color][/b][b][color=blue]setq[/color][/b] lst [b][color=red]([/color][/b][b][color=blue]cons[/color][/b] [b][color=red]([/color][/b][b][color=blue]cdr[/color][/b] [b][color=red]([/color][/b][b][color=blue]assoc[/color][/b] [b][color=#009900]2[/color][/b] tdef[b][color=red])[/color][/b][b][color=red])[/color][/b] lst[b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b] [b][color=blue]nil[/color][/b][b][color=red])[/color][/b]
           [b][color=red]([/color][/b][b][color=red]([/color][/b][b][color=blue]and[/color][/b] [b][color=red]([/color][/b][b][color=blue]snvalid[/color][/b] str[b][color=red])[/color][/b]
                 [b][color=red]([/color][/b][b][color=blue]tblsearch[/color][/b] [b][color=#ff00ff]"BLOCK"[/color][/b] str[b][color=red])[/color][/b][b][color=red])[/color][/b]
            [b][color=red]([/color][/b][b][color=blue]setq[/color][/b] lst [b][color=red]([/color][/b][b][color=blue]list[/color][/b] str[b][color=red])[/color][/b][b][color=red])[/color][/b] [b][color=blue]nil[/color][/b][b][color=red])[/color][/b]
           [b][color=red]([/color][/b][b][color=blue]t[/color][/b] [b][color=red]([/color][/b][b][color=blue]princ[/color][/b] [b][color=#ff00ff]"\n** Block not Found **"[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]

 [b][color=red]([/color][/b][b][color=blue]setq[/color][/b] mstr [b][color=red]([/color][/b][b][color=blue]+[/color][/b] [b][color=#009900]5[/color][/b] [b][color=red]([/color][/b][b][color=blue]apply[/color][/b] [b][color=darkred]'[/color][/b][b][color=blue]max[/color][/b] [b][color=red]([/color][/b][b][color=blue]mapcar[/color][/b] [b][color=darkred]'[/color][/b][b][color=blue]strlen[/color][/b] lst[b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]             
 [b][color=red]([/color][/b][b][color=blue]princ[/color][/b] [b][color=red]([/color][/b][b][color=blue]strcat[/color][/b] [b][color=red]([/color][/b]Pad [b][color=#ff00ff]"\n Block"[/color][/b] [b][color=#009900]32[/color][/b] mstr[b][color=red])[/color][/b] [b][color=#ff00ff]"| Count"[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]
 [b][color=red]([/color][/b][b][color=blue]princ[/color][/b] [b][color=red]([/color][/b][b][color=blue]strcat[/color][/b] [b][color=red]([/color][/b]Pad [b][color=#ff00ff]"\n "[/color][/b] [b][color=#009900]45[/color][/b] mstr[b][color=red])[/color][/b] [b][color=red]([/color][/b]Pad [b][color=#ff00ff]"|"[/color][/b] [b][color=#009900]45[/color][/b] [b][color=#009900]10[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]

 [b][color=red]([/color][/b][b][color=blue]foreach[/color][/b] x lst
   [b][color=red]([/color][/b][b][color=blue]setq[/color][/b] i [b][color=red]([/color][/b]Blkcount x[b][color=red])[/color][/b][b][color=red])[/color][/b]
   [b][color=red]([/color][/b][b][color=blue]princ[/color][/b]
     [b][color=red]([/color][/b][b][color=blue]strcat[/color][/b]
       [b][color=red]([/color][/b]Pad [b][color=red]([/color][/b][b][color=blue]strcat[/color][/b] [b][color=#ff00ff]"\n "[/color][/b] x[b][color=red])[/color][/b] [b][color=#009900]46[/color][/b] mstr[b][color=red])[/color][/b]
       [b][color=red]([/color][/b]Pad [b][color=#ff00ff]"|"[/color][/b] [b][color=#009900]46[/color][/b] [b][color=red]([/color][/b][b][color=blue]-[/color][/b] [b][color=#009900]10[/color][/b] [b][color=red]([/color][/b][b][color=blue]strlen[/color][/b] [b][color=red]([/color][/b][b][color=blue]itoa[/color][/b] i[b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b] [b][color=red]([/color][/b][b][color=blue]itoa[/color][/b] i[b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]        

 [b][color=red]([/color][/b][b][color=blue]princ[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]

[b][color=red]([/color][/b][b][color=blue]defun[/color][/b] Pad [b][color=red]([/color][/b]Str Chc Len[b][color=red])[/color][/b]
 [b][color=red]([/color][/b][b][color=blue]while[/color][/b] [b][color=red]([/color][/b][b][color=blue]<[/color][/b] [b][color=red]([/color][/b][b][color=blue]strlen[/color][/b] Str[b][color=red])[/color][/b] Len[b][color=red])[/color][/b]
   [b][color=red]([/color][/b][b][color=blue]setq[/color][/b] Str [b][color=red]([/color][/b][b][color=blue]strcat[/color][/b] Str [b][color=red]([/color][/b][b][color=blue]chr[/color][/b] Chc[b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b][b][color=red])[/color][/b]
 Str[b][color=red])[/color][/b]

Yes this is the way it should look on paper

Hmm thats a tough one - I assume you are using the Visual LISP Editor to print the code?

LISP is just plain text (which is why you can open a .lsp file in Notepad and it'll look the same as any other text file) which Visual LISP environment itself assigns colour to. The .lsp file itself does not contain any colour information.

The only I can think of to accomplish what you're asking would be to do a similar trick as this function, but apply formatting in the syntax that, say, Microsoft Word is familiar with. Unfortunately, I think this would only be possible in Word 2008 (or whatever), the versions that use the .docx format, from which that sort of data could be accessed or inputted. However, even that would be a mind-blowing chore, and in the end, it would be easier to just do it manually.

Though, now that I think of it....

It might be possible to do one better... using an HTML trick...

EDIT: Score! It's not that bad, just run the colour-changing code and post it on a forum, any forum, you could probably even private message someone with it, or even yourself, then just highlight it and print it from your browser. Done and done!

Word will recognise HTML formatting if copied from a web page, so this may help...

EDIT: I think you just stumbled across the same thing...

NotePad ++

http://notepad-plus.sourceforge.net/uk/site.htm

oh it's free

Lee,

It is possible to change the converter you made for the BBC coding into HTML.

I would need the HEAD & BODY tags etc. -David

LSP2HTM.LSP

I did make one that used HTML - but only using span classes for use with this site (for the FAQ section).

My apologies but i don't know that mutch about visual lisp and html code.

Therefor i probably don't understand how your function works.

Say that i wanted to convert this function in such a way that i can print it in color whit word:

(defun c:test () (princ "print me please"))

Can somebody explain me how this is done?

Regards

Thomas

This is a very old thread Thomas, here is a more recent program of mine which may help:

http://lee-mac.com/lispstyler.html

This is a very old thread Thomas, here is a more recent program of mine which may help:

 

http://lee-mac.com/lispstyler.html

thank you very mucht.

I will give it a try

Regards thomas