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ランキング
-
イベントプロシージャ 印刷が...
-
VB.NETで罫線付きのデータを印...
-
印刷ダイアログを表示させたくない
-
2回以上PDFをコピーや印刷がで...
-
ActiveReportsを使って[印刷ダ...
-
プリンターを指定して印刷するには
-
違うフォーマットの宛名印刷
-
印刷ダイアログを表示させない方法
-
印刷要求順番と印刷出力順番が...
-
ミニチュアCDの作り方を教えて...
-
グーグルマップのV3で地図をプ...
-
~の文字化けについて
-
プリンタの印刷ジョブを削除し...
-
数式が消える
-
vba 時間の引き算 例えば 15:00...
-
Windows10のVBAでDirectX 8が使...
-
「読み込み違反」が起きたとき...
-
matplotlibで任意の角度の円弧...
-
WinSCPで画像のように puttyを...
-
秒数を入力すると○時間○分○秒と...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
印刷ダイアログを表示させない方法
-
印刷要求順番と印刷出力順番が...
-
ACCESSで設定した帳票の用紙サ...
-
vbaでPDFファイルが印刷されない
-
プリンターを指定して印刷するには
-
印刷ダイアログを表示させたくない
-
VBAで不特定枚数印刷をしたいで...
-
VBAにて指定したセルをプルダウ...
-
VB.NET+ActiveReports で印刷...
-
ActiveReportsを使って[印刷ダ...
-
VBscriptでPDFファイルを直接印...
-
webページの印刷制限について
-
PDFファイルを印刷し終了するには
-
イベントプロシージャ 印刷が...
-
クリレポのプリンタ設定について
-
両面印刷設定方法について
-
ファイルのパス指定での印刷方法
-
Accessフォームで全レコードを...
-
VBSでExcelファイル印刷時のプ...
-
VBAで印刷スプール終了の判定を...
おすすめ情報