A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
そりゃぁ、ピクチャボックスの方はビットマップに変換されていますから、これを印刷しても元のベクトルデータの鮮明さを得ることは出来ません。
えーと、確か、APIでメタファイルを描画する命令があったような気が………
うん。こんな感じで出来るみたいです。
Option Explicit
Private Declare Function GetEnhMetaFile Lib "gdi32" Alias "GetEnhMetaFileA" (ByVal lpszMetaFile As String) As Long
Private Declare Function PlayEnhMetaFile Lib "gdi32" (ByVal hdc As Long, ByVal hEmf As Long, lpRect As RECT) As Long
Private Declare Function CloseEnhMetaFile Lib "gdi32" (ByVal hdc As Long) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Sub Command1_Click()
Dim prt As Printer
Dim hEmf As Long
Dim sFileName As String
Dim rectPrt As RECT
'EMF読む
sFileName = "d:\temp\u12-2.emf" & vbNullChar
hEmf = GetEnhMetaFile(sFileName)
'印刷
Printer.ScaleMode = vbTwips
Printer.PSet (0, 0), vbWhite
With rectPrt
.Left = 567
.Top = 567
.Right = 1500
.Bottom = 1500
End With
Call PlayEnhMetaFile(Printer.hdc, hEmf, rectPrt)
Printer.EndDoc
'EMF閉じる
Call CloseEnhMetaFile(hEmf)
End Sub
ちなみに画像は↓から入手しました。
参考URL:http://www.lively.co.jp/illustcut01.2.html
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- スーパー・コンビニ 画像のようなラベルを使うのは古めのスーパーですか? 4 2022/05/20 18:28
- Windows 10 macからwindows11に変えてから印刷の速度が変えられなくなりました。 2 2023/05/31 20:49
- クラフト・工作 クリアテープについて 1 2023/04/21 14:26
- 事務・総務 郵便払込取扱票への記入揺れ 1 2022/03/26 22:54
- 邦画 映画『四月物語』の題名は旧約聖書:民族の系譜を表現するとともに露国ウクライナ侵攻の結末を暗示してる? 1 2023/05/03 06:05
- UNIX・Linux テキストファイルをページ番号付きでコマンドラインから印刷したい 1 2023/02/22 12:47
- Excel(エクセル) ログインIDの一発入力? 5 2023/07/07 12:30
- その他(買い物・ショッピング) 商品に印字してあるバーコードについて 4 2022/09/25 14:12
- その他(買い物・ショッピング) 商品にラベルを貼って出荷するまでのの手順にについて 2 2022/09/29 15:26
- プリンタ・スキャナー エプソンプリンタEP-711Aの印字かすれが治らない 2 2023/03/17 16:29
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
印刷ダイアログを表示させない方法
-
プログラムからプリンタジョブ...
-
ACCESSで設定した帳票の用紙サ...
-
IEブラウザの印刷機能を使え...
-
マクロの修正方法の質問です。
-
プリンターを指定して印刷するには
-
VBAで印刷スプール終了の判定を...
-
連続印刷中のMsgBox
-
cプログラムを読んでいると put...
-
印刷ダイアログを表示させたくない
-
vbaでPDFファイルが印刷されない
-
リッチテキストファイルの印刷
-
webページの印刷制限について
-
VBSでExcelファイル印刷時のプ...
-
VBscriptでPDFファイルを直接印...
-
VB6からACCESSのレポートを印...
-
PHPからVBで作った文書印刷処理...
-
Accessフォームで全レコードを...
-
スプレッド(Spread 6) で縮小...
-
イベントプロシージャ 印刷が...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
印刷ダイアログを表示させない方法
-
印刷要求順番と印刷出力順番が...
-
ACCESSで設定した帳票の用紙サ...
-
vbaでPDFファイルが印刷されない
-
プリンターを指定して印刷するには
-
印刷ダイアログを表示させたくない
-
VBAで不特定枚数印刷をしたいで...
-
VBAにて指定したセルをプルダウ...
-
VB.NET+ActiveReports で印刷...
-
ActiveReportsを使って[印刷ダ...
-
VBscriptでPDFファイルを直接印...
-
PDFファイルを印刷し終了するには
-
webページの印刷制限について
-
イベントプロシージャ 印刷が...
-
クリレポのプリンタ設定について
-
両面印刷設定方法について
-
ファイルのパス指定での印刷方法
-
Accessフォームで全レコードを...
-
VBSでExcelファイル印刷時のプ...
-
VBAで印刷スプール終了の判定を...
おすすめ情報