Как распечатать содержимое в RichTextBox в FoxPro

Question

Я искал в Интернете тему, но все, что я нашел, это решения VB и C#. Кто-нибудь знает, есть ли способ в VFP 9 распечатать содержимое в RichTextBox?

Answer 1

Следующие лисицы про кодов обеспечивает функцию, называемую selprint, которая может быть использована для печати содержимого РТБ

cdlPDReturnDC=256 
    cdlPDNoPageNums=8 
    cdlPDSelection=1 
    cdlPDAllPages=0 

    Thisform.CommDlg1.Flags = cdlPDReturnDC + cdlPDNoPageNums 
    If Thisform.RTF1.SelLength = 0 
    Thisform.CommDlg1.Flags = Thisform.CommDlg1.Flags ; 
    + cdlPDAllPages 
    Else 
    Thisform.CommDlg1.Flags = Thisform.CommDlg1.Flags ; 
    + cdlPDSelection 
    EndIf 
    Thisform.CommDlg1.ShowPrinter 
    Thisform.RTF1.SelPrint(Thisform.CommDlg1.hDC)