Snippet Library

none

With dlgCommonDialog
        .DialogTitle = "Print"
        .CancelError = True
    ' Prepare to print using the printer object.
    .PrinterDefault = True
    ' Disable printing to file and individual page printing.
    .Flags = cdlPDDisablePrintingToFile Or cdlPDNoPageNums
    If TxtT1.SelLength = 0 Then
        'Hide Selection button if there is no selected text.
        .Flags = .Flags Or cdlPDNoSelection
    Else
        'Else enable the Selection button and make it the default
        ' choice
        .Flags = .Flags Or cdlPDSelection
    End If
    ' We need to know whether the user decided to print.
    .ShowPrinter
    If Err = 0 Then
        If .Flags And cdlPDSelction Then
            Printer.Print TxtT1.SelText
        Else
            Printer.Print TxtT1.Text
		Printer.EndDoc
        End If
    End If
End With;