A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
こんにちは
私も同じことをしようとしていましたが、同様の環境で同じ現象でした。
そのころ調べたところでは、それが仕様(バグ?)じゃなかったかと思います。昔のことなので記憶が曖昧ですが。
今はサードパーティーのコントロールで実現させています。他にもいろいろと便利だったので。
VS-VIEWという製品です。関係者ではありません。
では!
参考URL:http://www.grapecity.com/japan/support/database/ …
No.1
- 回答日時:
こんにちは。
maruru01です。プリンタにもちゃんと印刷されるはずですが。
APIはCreateFont関数ですよね。
で、私の場合は、
Prthdc = Printer.hdc
'フォントの作成
hFont = CreateFont(省略)
hFontOld = SelectObject(Prthdc, hFont)
'文字の出力
Result1 = TextOut(Prthdc, 中間省略, LenB(StrConv(文字列, vbFromUnicode)))
'フォントオブジェクトの削除
Result2 = SelectObject(Prthdc, hFontOld)
Result3 = DeleteObject(hFont)
Printer.EndDoc
という感じですが。
どういうコードになっていますか?
補足お願いします。
ちなみに、私の環境はWindows2000のVB6.0SP5です。
環境は書きましょう。
では。
この回答への補足
返事が大変遅れましたすみません。
開発環境はMicrosoft Visual Studio 6.0 Enterpriseです
SYUにプリンターオブジェクトを設定しています。
Public Sub MOJIK(MX, MY, FO, COR, MO, intAngle)
Dim lnghNewFont As Long
Dim lnghOriginalFont As Long
Dim lngHeight As Long
Dim lngWidth As Long
'on error goto Exit Sub
' フォントを作成
With SYU
' ピクセル単位に設定
' フォントの高さ
lngHeight = FO
' フォントの幅
lngWidth = 0
With .Font
lnghNewFont = CreateFont(lngHeight, lngWidth, _
intAngle * 10, intAngle * 10, _
.Weight, _
.Italic, _
.Underline, _
.Strikethrough, _
.Charset, _
0, _
0, _
0, _
0, _
.Name)
End With
' 作成したフォントを選択
lnghOriginalFont = SelectObject(.hdc, lnghNewFont)
' 描画開始位置
SYU.CurrentX = MX
SYU.CurrentY = MY - SYU.TextHeight("A")
' テキストボックスの内容を描画
SYU.Print MO
' 元のフォントに戻す
lnghNewFont = SelectObject(.hdc, lnghOriginalFont)
End With
' オブジェクトを破棄
DeleteObject lnghNewFont
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 年賀状作成・はがき作成 筆ぐるめ28 for NEC から年賀状を作りたいのですが、宛名印刷ができません。 1 2022/12/15 18:54
- Excel(エクセル) 【Excel】複数シートがあるエクセルデータで片面印刷と両面印刷設定がシートごとに入 1 2023/03/10 15:25
- その他(悩み相談・人生相談) 書物に字を転写する方法 1 2023/06/07 19:49
- Excel(エクセル) エクセルの罫線が印刷できない 4 2023/02/04 10:48
- Illustrator(イラストレーター) パソコン系に強い方助けてください。今パワーポイントで資料を作り文字の背景に色を使ったり色々したのです 4 2022/08/02 18:42
- プリンタ・スキャナー キャノンmp490プリンター【エラー番号5400】で【プリンタートラブルが発生しました。電源を入れ直 2 2023/07/24 17:45
- 事務・総務 郵便払込取扱票への記入揺れ 1 2022/03/26 22:54
- プリンタ・スキャナー epsonのプリンターでカラー印刷ができない 3 2023/04/28 01:03
- プリンタ・スキャナー 仕事で、先輩に、「封筒への宛名印刷」を頼まれ、 5 2022/08/02 18:47
- その他(Microsoft Office) Excelのマクロについて教えてください。 1 2022/03/25 10:03
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フォントの大きさ
-
コンボボックス内の文字サイズ変更
-
VBAのフォント変更(エクセルか...
-
wordで分数打とうとするとフォ...
-
コンボボックスの一部のアイテ...
-
リストビューのハンドルについて
-
フォントごとの文字列の幅の取得
-
チェックボックスの箱のサイズ...
-
Excelのセルのフォントサイズを...
-
リソースエディタでスタティッ...
-
ドロップダウンリストのフォン...
-
VB.NET2005 TextBox 高さ(Heig...
-
チェックボックスの文字サイズ...
-
static 文字が上に張り付いて・...
-
Eclipseで修正したファイル名の...
-
ワードでコントロールツールボ...
-
エクセルで作った新しいウイン...
-
グラフの交点の求め方(Excel)
-
「アイテムは収集されました」...
-
スピンボタンを右クリックして...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フォントの大きさ
-
コンボボックス内の文字サイズ変更
-
VBAのフォント変更(エクセルか...
-
ドロップダウンリストのフォン...
-
VB.NET2005 TextBox 高さ(Heig...
-
チェックボックスの箱のサイズ...
-
リソースエディタでスタティッ...
-
エディットボックスのフォント...
-
Msgboxで使用するフォントの指...
-
VBA TEXTBOXテキストボックスの...
-
文字色 エクリプス
-
プロポーショナルフォントの文...
-
static 文字が上に張り付いて・...
-
Eclipseで修正したファイル名の...
-
コンボボックスの一部のアイテ...
-
EDITBOXに関して
-
リストコンロールの一行だけを...
-
C# のフォームデザイン&レイア...
-
WPFのフォントカラー変更につい...
-
Macbook Word フォント色変更で...
おすすめ情報