VB2.0～VB6.0用掲示板のログNo.2（2004/08/10～2006/08/31）

[リストへもどる]　　　[VBレスキュー(花ちゃん)]

一括表示

森鷗外の鷗の字を印刷.. - こまったさん 02/04-11:57 No.5710
- Re: 森鴎外の區辺の鴎の字を印刷したい - 花ちゃん 02/04-12:27 No.5711
  - Re^2: 森鴎外の區辺の鴎の字を印刷したい - こまったさん 02/04-13:44 No.5712
    - Re^3: 森鴎外の區辺の鴎の字を印刷したい - neptune 02/04-15:48 No.5713
    - Re^3: 森鴎外の區辺の鴎の字を印刷したい - Renard 02/05-11:39 No.5723
      - Re^4: 森鴎外の區辺の鴎の字を印刷したい - こまったさん 02/06-07:06 No.5729

投稿時間：2006/02/04(Sat) 11:57 投稿者名：こまったさんＵＲＬ　：タイトル：森鷗外の鷗の字を印刷したい

Visual Basic6.0(SP6)で、森鷗外の「鷗」の字が、どうしても「？」に変換され
てしまいます。
そのためだと思うのですが、プリンターの印字もやはり、「？」になってしまいます。
リッチテキストボックスに、「森鷗外」と入力してみると、画面では表示されるのですが
、
プリンターにはやはり、「？」で印字されます。何か良い方法はないものでしょうか？

投稿時間：2006/02/04(Sat) 12:27 投稿者名：花ちゃんＥメール：ＵＲＬ　：タイトル：Re: 森鴎外の區辺の鴎の字を印刷したい

VB6.0 では、shift_Jis の文字しか扱えません(一部のコントロールを除く)
hhttp://www.bcap.co.jp/hanafusa/logbbs1/wforum.cgi?mode=allread&no=2048#2049

リッチテキストボックスで表示及び印刷できますよ。と回答したはずですが
hhttp://bbs4.aimix-z.com/gbbs.cgi?room=hanafusa
(それなのになぜ同じ質問を繰り返しているの)

ヘルプでリッチテキストボックスのメソッドを調べて見て下さい。

# 文字化けしている部分の文字を書き直して下さい。

投稿時間：2006/02/04(Sat) 13:44 投稿者名：こまったさんＵＲＬ　：タイトル：Re^2: 森鴎外の區辺の鴎の字を印刷したい

> VB6.0 では、shift_Jis の文字しか扱えません(一部のコントロールを除く)
> hhttp://www.bcap.co.jp/hanafusa/logbbs1/wforum.cgi?mode=allread&no=2048#2049
>
> リッチテキストボックスで表示及び印刷できますよ。と回答したはずですが
> (それなのになぜ同じ質問を繰り返しているの)
>
> ヘルプでリッチテキストボックスのメソッドを調べて見て下さい。
>
>
> # 文字化けしている部分の文字を書き直して下さい。

文字化けしている部分は、森鷗外（もりおうがい）と書いてあります！！
※たぶんまた、文字化けするでしょう。

好きで文字化けをさせているわけでも何でもありません。

それに、VBの質問は、VB用の掲示板でお願いしますと書いたのは、貴殿でしょ！

こちらでは、リッチテキストボックスに入力した文字を、プリンターに出力できなかったので、
なにか良い方法はないかと質問しているにもかかわらず、
その回答が、「できますよっ」の一言では、なんの解決にもなっていないでしょ？

投稿時間：2006/02/04(Sat) 15:48 投稿者名：neptune Ｅメール：ＵＲＬ　：タイトル：Re^3: 森鴎外の區辺の鴎の字を印刷したい

何を逆切れしているか知りませんけど
> こちらでは、リッチテキストボックスに入力した文字を、プリンターに出力できなかったので、
> なにか良い方法はないかと質問しているにもかかわらず、
どんな環境で、何をどのようにして
と言う情報が完全に欠落してますね。

花チャンさんの言う通りで出来ますよ。（２～３分で検証できましたけど）

> その回答が、「できますよっ」の一言では、なんの解決にもなっていないでしょ？
逆切れで問題が解決しますか？
落ち着いて何をどのようにしてという情報を発信しては？

※正しいアドバイスを頂いて礼もいわんのはかなり失礼な事ですから
　一言わびを言うべきでしょう。

投稿時間：2006/02/05(Sun) 11:39 投稿者名：Renard Ｅメール：ＵＲＬ　：タイトル：Re^3: 森鴎外の區辺の鴎の字を印刷したい

Command1の方法でやってるに　１票

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

投稿時間：2006/02/06(Mon) 07:06 投稿者名：こまったさんＵＲＬ　：タイトル：Re^4: 森鴎外の區辺の鴎の字を印刷したい

> Command1の方法でやってるに　１票
>
> 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

どうもおせわさまでした。ありがとうございました。