print Treeview

[damianodec]

Hi,
I have a dialog from .rc file, this dialog has a treeview Redefined:

Code: Select all  Expand view  RUN

DEFINE DIALOG oDlg RESOURCE "TREEDIS" FONT oFont TITLE "Visualizza distinta"

    REDEFINE SAY o_get[02] PROMPT m_GET[02] ID 201 OF oDlg
    REDEFINE SAY o_get[03] PROMPT m_GET[03] ID 202 OF oDlg 
    REDEFINE TREEVIEW oTree ID 60 OF oDlg COLOR CLR_BLACK, CLR_WHITE  //size 400 , 180 

    REDEFINE BTNBMP OBtnEscI ID 2 OF oDlg RESOURCE "chiudi"  2007   ACTION (oDlg:End() )
    REDEFINE BTNBMP OBtnExc  ID 3 OF oDlg RESOURCE "tree"   2007  ;

and this is the dialog:


how can I to print or save in PDF the Treeview?

thanks.

[Silvio.Falconi]

I'm afraid you must make .....to hand or snap of the dialog
if the trre is adatabse you can make it easy

[Antonio Linares]

Damiano,

oTree:HardCopy()

[damianodec]

hardcopy prints just actual view.
I have a lot of tree of BOM (bill of materials) with dozens of nodes, I can not to print whit hardcopy, scroll dialog and print next nodes with another hardcopy in another page.

[Otto]

Hello,
I use winexec with DOS command tree >TXT. Then I polish TXT with strtran() function.
Best regards
Otto

[Otto]

Hello,
Maybe better tree >tree.rtf
Best regards
Otto

[damianodec]

hi Otto,
can you post your code?
thank you

[Otto]

Hello,
this is my code.
Regards
Otto

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function main()
    local cText := "tree >mytree.txt"
    local cReturn := ""
    memowrit( "xtree.bat", cText)
    waitrun("xtree.bat")
    cReturn := memoread( "mytree.txt" )
    cReturn := strTran( cReturn, "Ã",  chr(25) )
    cReturn := strTran( cReturn, "ÄÄÄ",  chr(6)+chr(6)+chr(6) )
    cReturn := strTran( cReturn, "ÄÄÄ",  chr(6)+chr(6)+chr(6) )
    cReturn := strTran( cReturn, "³", "    "  )
    cReturn := strTran( cReturn, "À",  chr(3) )

    ? cReturn
   
return nil


 

[damianodec]

Thank you Otto.