如何在FoxPro中的RichTextBox中打印內容

Question

我已經在網上搜索了關於該主題的內容，但是我發現的所有內容都是VB和C＃解決方案。有人知道在VFP 9中是否有方法將RichTextBox中的內容打印出來？

Answer 1

以下狐親碼使一個函數調用selprint可用於打印RTB

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) 

的內容