VBレスキュー(花ちゃん)
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ各掲示板

リンク元へ戻ります。 印刷関係のメニュー
1.指定位置に(文字・罫線・指定フォントで)印刷する
2.ピクチャーの内容を印刷する
3.網掛け文字を表示及び印字
4.プリンターの指定方法
5.用紙サイズ・用紙の向き・用紙トレイ・印刷枚数・拡大縮小を指定する
6.プリンターの印刷余白及び用紙サイズを取得
7.関連付け起動によるファイルの印刷
8.[プリンターの設定]ダイアログボックスを表示する
9.その他上記以外の印刷関係のサンプル
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.


3.網掛け文字を印字
1.網掛け文字を印字・印刷する
2.白抜き文字を印刷する
3. 
4. 
5. 
6. 

 下記プログラムコードに関する補足・注意事項 
動作確認:Windows Vista・Windows 7 (32bit) / VB6.0(SP6)
Option :[Option Explicit]
参照設定:追加なし
使用 API:

その他 :
    :
このページのトップへ移動します。 1.網掛け文字を印字・印刷する(004)  2002.04.17   修1 2006.12.28

Option Explicit

Private Sub sAmikakePrint(Mystr As String, X As Single, Y As Single)

  '--- VB5.0 で文字の背景が透明にならない場合 --------
  'VB6.0 では必要ありません、又、逆に文字を印刷してから網掛けを
  '印刷するならできますが、カラーの場合や塗潰しの場合は不可です。
  '下記の5行を各ページの先頭に記入して下さい。
  '詳しくは、下記、VB5.0 における印刷関連の制限事項および注意点 を参照
  'http://support.microsoft.com/default.aspx?scid=kb;ja;JP411269
  Printer.FontTransparent = False
  Printer.Print " "
  Printer.CurrentX = 0
  Printer.CurrentY = 0
  Printer.FontTransparent = True
  '---------------------------------------------------

  Dim Icount  As Single
  Dim Jcount  As Single
  Dim sngHeight As Single
  Dim sngWidth As Single
  Printer.ScaleMode = vbCharacters    'キャラクター単位で統一
  Printer.DrawWidth = 2          '点の大きさ設定1にすると薄い色
  sngWidth = Printer.TextWidth(Mystr)   '文字列の幅を取得
  sngHeight = Printer.TextHeight(Mystr)  '文字列の高さを取得
  For Icount = X To X + sngWidth Step 0.2
    For Jcount = Y To Y + sngHeight Step 0.1
      Printer.PSet (Icount, Jcount), QBColor(0) 'ドットを印字
    Next Jcount
  Next Icount
  Printer.CurrentX = X          '座標の設定
  Printer.CurrentY = Y
  Printer.Print Mystr           '設定文字列を印字
  Printer.EndDoc
End Sub

Private Sub Command1_Click()
  Printer.PaperSize = vbPRPSA4
  'Printer.Orientation = vbPRORLandscape
  Printer.Orientation = vbPRORPortrait

  Printer.FontSize = 36
  '10桁目の3行目に印字
  Call sAmikakePrint("VBレスキュー(花ちゃん)", 10, 3)
  Printer.EndDoc
End Sub


  下記のような感じに印刷されます。(印刷の場合は印刷密度が違うので、実際はもっときれいに印刷されます。)
 print03_01

Step 0.2 Step 0.1 は点の表示密度で、キャラクター (水平 = 1 単位あたり240 twip、垂直 = 1 単位あたり 120 twip)単位での表示なので。

このページのトップへ移動します。 2.白抜き文字を印刷する

Private Sub Command3_Click()
  Printer.FontSize = 24
  Printer.FontBold = True
  Printer.DrawMode = vbCopyPen
  Printer.Line (Printer.TextWidth("VBレスキュー(花ちゃん)"), Printer.TextHeight("あ"))-(0, 0), vbRed, BF
  FontTransparent = True
  Printer.ForeColor = vbWhite
  Printer.Print "VBレスキュー(花ちゃん)";
  Printer.EndDoc
End Sub

  下記のような感じに印刷されます。
 

文字を後から印刷するのがミソです。
下記の一連の書き込みも参考にして下さい。
白抜き文字を印刷したい

このページのトップへ移動します。 3.


このページのトップへ移動します。 4.


このページのトップへ移動します。 5.


このページのトップへ移動します。 6.


このページのトップへ移動します。 検索キーワード及びサンプルコードの別名(機能名)
網掛け文字を印刷 装飾文字を印刷 文字を網掛けで印刷 網掛け 印刷 印字 文字の背景
白抜き文字を印刷する 色抜き文字を印字する 背景色と前景色を指定して印刷する
装飾文字を印刷する


このページのトップへ移動します。