With dlgCommonDialog
.DialogTitle = "Print"
.CancelError = True
.Flags = cdlPDReturnDC + cdlPDNoPageNums
If ActiveForm.rtfText.SelLength = 0 Then
.Flags = .Flags + cdlPDAllPages
Else
.Flags = .Flags + cdlPDSelection
End If
.ShowPrinter
If Err <> MSComDlg.cdlCancel Then
ActiveForm.rtfText.SelPrint .hDC
End If
End With
在上面的代码当中,给通用对话框控件的Flags属性赋值。它的值为cdlPDReturnDC + cdlPDNoPageNums
通过查阅MSDN得到的结果是:
cdlPDReturnDC:返回设备描述体 以在对话框中选择打印机。在对话框的 hDC 属性中返回设备描述体。
cdlPDNoPageNums:使页选项按钮与相关联的编辑控件无效。
以上的这两个解释我都看不懂。把.Flags = cdlPDReturnDC + cdlPDNoPageNums去掉也能把它打印出来。到底这句话起到什么作用?我不是已经添加好了打印机了吗?还请高手指点。
.DialogTitle = "Print"
.CancelError = True
.Flags = cdlPDReturnDC + cdlPDNoPageNums
If ActiveForm.rtfText.SelLength = 0 Then
.Flags = .Flags + cdlPDAllPages
Else
.Flags = .Flags + cdlPDSelection
End If
.ShowPrinter
If Err <> MSComDlg.cdlCancel Then
ActiveForm.rtfText.SelPrint .hDC
End If
End With
在上面的代码当中,给通用对话框控件的Flags属性赋值。它的值为cdlPDReturnDC + cdlPDNoPageNums
通过查阅MSDN得到的结果是:
cdlPDReturnDC:返回设备描述体 以在对话框中选择打印机。在对话框的 hDC 属性中返回设备描述体。
cdlPDNoPageNums:使页选项按钮与相关联的编辑控件无效。
以上的这两个解释我都看不懂。把.Flags = cdlPDReturnDC + cdlPDNoPageNums去掉也能把它打印出来。到底这句话起到什么作用?我不是已经添加好了打印机了吗?还请高手指点。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货