投稿日 | : 2006/02/06(Mon) 07:06 |
投稿者 | : こまったさん |
URL | : |
タイトル | : Re^4: 森鴎外の區辺の鴎の字を印刷したい |
> 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
どうもおせわさまでした。ありがとうございました。