掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
印刷について・・・ (ID：104167)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
やってみた結果（勉強して←本当に？）ピクチャーボックスにタイルのように並べることができたのですが、さてこのピクチャーボックスをどうすればプリンタ出力できるのでしょう・・・という壁にぶち当たり次のようなことを試みたのですがうまくいきません。どうしてなんでしょ？なぜなんでしょ？ Dim picTest As New StdPicture Dim i Dim e Set picTest = LoadPicture(App.Path & "\test.bmp") With picDaisi If picTest Is Nothing Or picTest = 0 Then Exit Sub For i = 0 To .ScaleWidth / picTest.Width Step 0.56 For e = 0 To .ScaleHeight / picTest.Height Step 0.56 .PaintPicture picTest, i * picTest.Width, e * picTest.Height Next Next End With MsgBox ("owari") って感じでpicDaisiに思いどおりのイメージが絵がけれたのですが次に Printer.PaintPicture picDaisi.Picture, 0, 0 または Printer.PaintPicture picDaisi.Image, 0, 0 Printer.EndDoc ってやったのですが・・・
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.