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

时间:2013-06-12 02:40:36

标签: printing richtextbox visual-foxpro

我在网上搜索了这个主题,但我发现的只是VB和C#解决方案。有人知道VFP 9中是否有办法在RichTextBox中打印出内容?

1 个答案:

答案 0 :(得分:0)

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