投稿日 | : 2006/02/05(Sun) 11:39 |
投稿者 | : Renard |
Eメール | : |
URL | : |
タイトル | : Re^3: 森鴎外の區辺の鴎の字を印刷したい |
Command1の方法でやってるに 1票
Private Sub Command1_Click()
Printer.Print Me.RichTextBox1.Text
Printer.EndDoc
End Sub
Private Sub Command2_Click()
CommonDialog1.Flags = cdlPDReturnDC + cdlPDNoPageNums
If RichTextBox1.SelLength = 0 Then
CommonDialog1.Flags = CommonDialog1.Flags + cdlPDAllPages
Else
CommonDialog1.Flags = CommonDialog1.Flags + cdlPDSelection
End If
Me.CommonDialog1.ShowPrinter
Me.RichTextBox1.SelPrint Me.CommonDialog1.hDC
End Sub