printing - FoxPro 中如何打印 RichTextBox 中的内容

Question

我在网上搜索了有关该主题的信息，但我发现的只是 VB 和 C# 解决方案。有谁知道 VFP 9 中是否有办法打印出 RichTextBox 中的内容？

Answer 1

以下 fox pro 代码启用了一个名为 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)