UseDefaultPrinter 屬性

全部顯示

返回或設(shè)置一個(gè) Boolean 值，表示指定窗體或報(bào)表是否使用系統(tǒng)的默認(rèn)打印機(jī)；如果窗體或報(bào)表使用默認(rèn)打印機(jī)，該值設(shè)為 True?？勺x寫(xiě)。

expression.UseDefaultPrinter

expression     必需。返回“應(yīng)用于”列表中的一個(gè)對(duì)象的表達(dá)式。

說(shuō)明

該屬性在“設(shè)計(jì)”視圖中可讀寫(xiě)，但在其他視圖中為只讀。

當(dāng)該屬性設(shè)為 True 時(shí)，窗體或報(bào)表將默認(rèn)打印機(jī)的設(shè)置繼承其所有打印機(jī)設(shè)置。通過(guò)將其 Printer 屬性指定為 Printer 對(duì)象來(lái)更改與窗體或報(bào)表相關(guān)的打印機(jī)時(shí)，會(huì)將 UseDefaultPrinter 屬性設(shè)為 False。

示例

下面的示例用于檢查是否指定窗體使用默認(rèn)打印機(jī)；如果不是默認(rèn)打印機(jī)，則詢(xún)問(wèn)用戶(hù)是否應(yīng)使用默認(rèn)打印機(jī)。

Function CheckPrinter(frmTemp As Form) As Boolean

    If frmTemp.UseDefaultPrinter = False Then

        If MsgBox("Should this form use " _

                & "the default printer?", _

                vbYesNo) = vbYes Then

            frmTemp.UseDefaultPrinter = True

        End If

    End If

End Function