Printing 如何在FoxPro中打印RichTextBox中的内容_Printing_Richtextbox_Visual Foxpro

Printing 如何在FoxPro中打印RichTextBox中的内容

printing

Printing 如何在FoxPro中打印RichTextBox中的内容,printing,richtextbox,visual-foxpro,Printing,Richtextbox,Visual Foxpro,我在网上搜索过这个话题，但我只找到了VB和C#的解决方案。有人知道VFP 9中是否有办法打印RichTextBox中的内容吗？以下fox pro代码启用了一个名为selprint的功能，可用于打印RTB的内容 cdlPDReturnDC=256 cdlPDNoPageNums=8 cdlPDSelection=1 cdlPDAllPages=0 Thisform.CommDlg1.Flags = cdlPDReturnDC + cdlPDNoPageNu

我在网上搜索过这个话题，但我只找到了VB和C#的解决方案。有人知道VFP 9中是否有办法打印RichTextBox中的内容吗？

以下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)