• ベストアンサー

VB6で印刷の幅を調べたい

VB6(SP5)でプログラミングをしております。 印刷で、Printer.Print("ABC")と、実行したとします。 フォントサイズにより、横幅が異なります。 このインチ幅(twip)を先に確認するにはどうすれば 良いのでしょうか? 宜しくお願い致します。

質問者が選んだベストアンサー

  • ベストアンサー
回答No.1

こんにちは。 　Printer.ScaleMode = vbInches myWidth = Printer.TextWidth("abc") でどうでしょうか。 詳しくはTextWidthメソッドとScalemodeプロパティのヘルプをご覧ください

m-toshi
質問者

お礼

ありがとうございました。 ご支持の方法で解決致しました。 今後とも、宜しくお願い致します。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • VB6の印刷でメモリリーク

    VB6の印刷でメモリリーク VB6.0（SP6）について質問です。 PRINTERオブジェクトを使用して連続で印刷するとメモリリークが発生します。 プログラムは単純にPrint文で印刷しているのみですが、Printerオブジェクトに 問題があるのでしょうか？ もしかしたら使用可能メモリ限界まで増加し続けるというWindowsの仕様でしょうか？ お知恵をお貸しください。よろしくお願いします。 以下のソースを２秒周期のタイマで実行しています。 For iLoop = 0 To 100 Printer.CurrentX = iLoop Printer.CurrentY = iLoop Printer.Print "TEST" Next iLoop ’ テスト用にKILLDOCをしています Printer.KillDoc

  • VB6で組み込み用に画面を作ってます。

    VB6で組み込み用に画面を作ってます。 今までは　10.4インチ液晶　640×480ドット　VGA　 のハードを使ってました。 VB6上では9600twip×7200twipで画面を作成していました。 次回からハードが10.4インチ液晶　800×600ドット　SVGA に変わります。 VB6上では、1ドット=15twipとして、 12000twip×9000twipで画面を作成すればいいのでしょうか？ 液晶が同じサイズにもかかわらす、画面デザインを大きくしないと いけないので、やや戸惑っております。 当面は実機がないため、 確認できない状態で開発を行わないといけないので、 不安に思い、質問させて頂きました。 よろしくお願い致します。 ※職場から書き込みできない関係で、お礼が遅くなるかもしれません。 　ご容赦ください。

  • VBからの印刷でページが順番に印刷されません。

    VBからPrinterオブジェクトを使用して複数ページを印刷しています。 Printer.print "1ページ目" Printer.EndDoc Printer.print "2ページ目" Printer.EndDoc Printer.print "3ページ目" Printer.EndDoc のように命令を実行すると、１，２，３の順に印刷されず、１，３，２の順に印刷されます。（いつもではありません） おそらくプリンタのプロパティのスプール周りの設定によってこのようになるのかなと思っているのですが、確実に印刷命令を発行した順番に紙が排出されるようにするにはどのようにしたらよいでしょうか？

  • VB6とVB.NETでは同じフォントでも違う文字になる？

    VB6とVB.NETでは同じフォントでも違う文字になる？ VB.NETで文字を印刷しているのですが、VB6で印刷したものと、VB.NETで印刷したものは 同じフォントを指定しているのに、明らかに文字が違います。 このようなことはあるのでしょうか。 あるいはロジックに問題があるのでしょうか。 VB6 Printer.FontName = "ＭＳ ゴシック" Printer.CurrentY = YY Printer.CurrentX = XX Printer.FontSize = 10 Printer.Print(TITLE) VB.NET Dim PrtFont1 As New Font("ＭＳ　ゴジック", 10) e.Graphics.DrawString(TITLE, PrtFont1, Brushes.Black, XX,YY) Windows XP VisualBasic 6.0, Visualbasic2010 Express

  • VBの印刷について

    visual basic6の印刷について質問です。 現在ピクチャーボックス内にテキストボックスやオプションボタンなどの コントロールを配置しています。 それを印刷したいのですがうまくいきません。 各コントロールが認識されずに真っ白な状態で印刷されます。 以下のソースで各コントロールが認識されていないことがわかりました。 Private Sub print_cmd_Click() print_mt = MsgBox("印刷しますか？", vbYesNo,) If print_mt = vbYes Then Picture2.Picture = Picture2.Image SavePicture Picture2.Picture, App.Path & "\abc.bmp" End If End Sub bmpで表示しようとしても何も確認できません。。。 Printer.PaintPicture Picture1.Image Printer.EndDoc でやっても白紙ででてきます。 AutoRedrowはTrueにしてます。 なぜピクチャーボックス内のコントロールが認識されないのでしょうか？ 各コントロールは正常に動作しています。

  • バーコード印刷

    VB6.0を使用しているのですが、バーコードを印刷した後にフォントを明朝体などにもどすと文字化けをしてしまいます。 例えば次のようにした場合、「あいうえお」から後に印刷するものはすべて文字化けしてしまいます。（半角の英数文字は文字化けしません。） Printer.Font = "CN-CODE39" Printer.Print "*123456*" Printer.Font = "ＭＳ 明朝" printer.print "あいうえお" 以前、同じ質問をした人がいるので、そちらを参考にしましたが、解決できませんでした。 大変申し訳ございませんが、解決策を教えてください。 参考 http://oshiete1.goo.ne.jp/kotaeru.php3?q=603011

  • ＶＢでの印刷について

    ＶＢでＰＲＩＮＴＥＲ．ＥＮＤＤＯＣを実行すると印刷後、自動的に用紙が排出されますが、１行印刷しても用紙を排出せず次の１行を印字し排出は任意に出来る方法をご存じの方よろしくお願いします （１行ずつ送られてくるデータをその都度印字し 用紙が一杯になると改ページしたい）

    • 締切済み
    • PHP
  • バーコード印刷

    バーコードと一緒に文字も印刷したいのですけど 日本語が文字化けを起こしてしまいます。 Private Sub Command1_Click() Printer.PaperSize = vbPRPSA4 Printer.FontSize = 16 Printer.Font = "CODE39" Printer.Print "*KATOM*" Printer.Font = "ＭＳ Ｐゴシック" Printer.Print "あああ" Printer.Print "AAA" Printer.EndDoc End Sub CODE39というのがバーコードのフォントです。 "あああ"が文字化けするのですがどなたかわかりますか？

  • VB6のPrinter.ScaleWidth に対応するvb.netの

    VB6のPrinter.ScaleWidth に対応するvb.netの命令はありますか。 VB.netでプリンタにグラフ印刷させようとしているのですが、VB6の場合Printer.ScaleWidth、Printer.ScaleHeightでA4サイズにスケーリングできたのですがVB.netではScaleWidth,ScaleHeightに変わるものを見つけることができません。 たとえばA4サイズにスケーリングする場合自分で座標の最大値を取り出しスケールを計算し座標に掛けてやるしかないのでしょうか。 環境Windows XP VisualBasic 2010 Express

  • ＶＢでの印刷について

    ＶＢでＰＲＩＮＴＥＲ．ＥＮＤＤＯＣを実行すると印刷後、自動的に用紙が排出されますが、１行印刷しても用紙を排出せず次の１行を印字し排出は任意に出来る方法をご存じの方よろしくお願いします （１行ずつ送られてくるデータをその都度印字し 用紙が一杯になると改ページしたい）ＥＮＤＤＯＣしないとスプールされるだけで実際には印字されません、実際に印字し改ページしない方法があれば お願いします

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する