• ベストアンサー

印刷のクオリティ

ＶＢ６より、ＰＤＦにて印刷物を作成するのですがアイコンが荒くて使い物になりません。 Printer.PaintPicture LoadPicture(jpgファイル),x1,y1,width,height でjpgファイルを指定します。jpgファイルはかなり解像度を上げています。それでも、このＶＢの命令だとあまりきれいではありません。 何かきれいになる方法はないでしょうか？

質問者が選んだベストアンサー

  • ベストアンサー
  • kakusuke
  • ベストアンサー率36% (95/259)
回答No.1

むか～しそういうのを作ってたとき、 imageに貼り付けた後に縮小して、imageをLoadPictureで呼び出したような気がしますが…。

durian_sk
質問者

お礼

ありがとうございます。 試してみます。 ひとつ、フォームを作成して、それをPaintPictureするんでしょうか？

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • LoadPictureしたイメージデータのサイズを知りたい

    VB6で作成したプログラムにおいて、サイズが異なるイメージデータをLoadPictureでImageに一旦読込み、PaintPictureで同じPictureBoxに拡大して転送したいのですが、PaintPictureで全データを転送するにはイメージデータのサイズがわからないと全データが転送できません。 LoadPictureでImageに読込んだ場合に、データのサイズ（Width・Heightまたはデータ量）を確認する方法を教えてください。

  • VB6でのPicutre印刷について

    現在、Windows7にてクリップボードの印刷を考えています 困っている事　PictureオブジェクトからHeight,Widthを取得できない 動き (1)クリップボードをPictureオブジェクトに複写 (2)上記PictureオブジェクトからHeight,Widthを取得できない(1ページに印刷するため) ※ここでエラーになります (3)print.paintPictureにて印刷 希望→同一実行ファイルにて、Windows2000も動作できる 何かヒントをお願いします

  • PaintPictureメソッドについて

    Printer.PaintPicture LoadPicture(ファイル名) このように画像を印刷しようとする時、ファイルがJPEG形式だと、スプーラに送られる容量が実際のファイルの6～7倍になってしまいます。 おそらくビットマップに展開してから、送っているのだと思います。 プリンタにビットマップ展開の機能があるので、JPEGのまま転送したいのです。 ネットワークプリンタであるため、転送時間が大変掛かってしまうのでなんとかしたいのです。 何か良い方法はないでしょうか。 市販のソフトやコンポーネント、ライブラリなどを使ってもいいです。 よろしくお願いします。

  • Paintpicture描画時のクリックイベント

    お知恵を貸してください！ ただいま「ランダムな場所にImageを描画して、そのイメージをクリックするとイベントが起きる」という プログラムを組んでいます。 Paintpictureを使って、ランダムに描画することはできたのですが、 描画したイメージをクリックしてもイベントの動作を行ってくれません。 使用しているのはVB6.0です。 プログラムは以下のとおりです。 Imageは透過GIF（Image1）と保険にマスクイメージ（Image2）を使用しております。 ------- ・描画プログラム Private Sub Command1_Click() End End Sub Private Sub Timer1_Timer() x = Int(rnd * Form1.Width) - (Image1.Width \ 2) y = Int(rnd * Form1.Height) - (Image1.Height \ 2) Form1.Refresh Form1.PaintPicture Image2, x, y, , , , , , , vbSrcAnd Form1.PaintPicture Image1, x, y, , , , , , , vbSrcPaint End Sub ------- ・行動プログラム Private Sub Image1_Click() MsgBox "Score gat" End Sub ------- アドバイス、ご指摘お願いいたします。

  • 画像の一部を保存したい

    Picture1にある画像の一部(X1,Y1)-(X2,Y2)の範囲をファイルに保存したいのですがどうすればよいでしょうか。 Picture2.PaintPicture Picture1, 0, 0, , , X1, Y1, X2 - X1, Y2 - Y1 で画像の一部を一旦表示させてみたものの、 SavePicture Picture2.image, "save.bmp" では保存できません。 よい方法を教えてください。

  • 画像の縮小

    ピクチャー画像の縮小を行いたいのですが、 sw = Picture1.ScaleWidth * 0.1 sh = Picture1.ScaleHeight * 0.1 w = Picture1.Width h = Picture1.Height Picture2.Height = h * 0.1 - Picture2.Height - Picture2.ScaleHeight Picture2.Width = w * 0.1 - Picture2.Width- Picture2.ScaleWidth Picture2.PaintPicture Picture1.Picture,0,0,sw,sh のようなプログラムを行うと、画面で見えている範囲のピクチャーは縮小してくれるのですが、VB画面からはみ出る部分は切れてしまいます。 ピクチャーを1つずつ、とって縮小していくとなると相当な時間がかかってしまうので、早く処理できる方法は無いでしょうか？ ご存知の方は教えて下さい。

  • VB6.0で印刷サイズを指定したい。（環境Windows2000）

    VB6.0で印刷サイズを指定したい。（環境Windows2000） Windows98ではユーザーサイズを指定できたのですが、Windows2000でそのままプログラムを動かすとエラーになってしまいます。 どうしたらいいでしょうか。 コードはこのように書いています。 用紙サイズ With Printer .PaperSize = vbPRPSUser 'ユーザ定義サイズ 　　.Height = 56.7 * 216 　　.Width = 56.7 * 350 　End With

  • ｐｄｆファイルが、印刷できない

    ｐｄｆファイル、adobe9.3のアイコンを開き、プリンターの絵をクリックすると、他にpdfファイルを作ろうとします。しかたないので、デスクトップにそれを作り。それでprogress　というウィンドウが出て、まったくプリントが進みません。どうしてでしょうか？どうかすると、adobe printer setting してくれと出てきます。 以前は、pdf ファイルは、そのままプリントアウトできたのですが、今日、Google mapを印刷しようとして失敗し、デスクトップのｐｄｆファイルを試してみたら全部同じように印刷できないようになってました。WINDOWS7です。

  • BCBで画像を拡大印刷したい

    C++Builder5を使っています。 会社で印刷するプリントに会社のロゴを同時に印刷したい、という要求があり、BMPを印刷するテストプログラムを作りました。 ロゴの画像は300dpiでスキャンしたものをBMPにしてファイルとして保存してあります。 ソースの抜粋は次のとおりです。 int x,y; Graphics::TBitmap *pBitmap = new Graphics::TBitmap(); pBitmap->LoadFromFile(FLNM); //FLNMにはBMPファイル名が格納されています。 Printer()->Canvas->Draw(x,y,pBitmap); xとyは、 GetDeviceCaps(Printer()->Handle,LOGPIXELSY)でプリンターの解像度を得て、印刷位置をドットに変換済みです。 これで画像は希望する位置に印刷できたのですが、（当初から予想はしていましたが）問題があります。 プリンターの解像度によって画像の大きさが変わってしまいます。 プリンターの解像度に合わせて画像を拡大印刷したいのですが、方法はあるでしょうか？ 例えば、プリンター解像度が600dpiなら縦横2倍の大きさで印刷する、ということです。 TBitmapのHeightを2倍にしてみたのですが、元の画像に余白が追加されただけで、希望通りの大きさでは印刷できませんでした。 よろしくご指導ください。

  • VB5で、PDFファイルを印刷ダイアログボックスを非表示にして任意の場

    VB5で、PDFファイルを印刷ダイアログボックスを非表示にして任意の場所に保存したいのです。 現状は、VB5で下記のように記述しています。 通常のプリンタ設定はCutePDFとなってます。 Printer.Print ○○ Printer.EndDoc 上記で名前をつけて保存ダイアログボックスが表示され、 デスクトップ上が保存先、名前はVisualBasic.pdfとなってます。 これを、 保存ダイアログボックスを非表示にし、 保存先、ファイル名をVB側で指定したいのですが、 どのようにやればいいのかわからず困っています。 その前にできるのか… VB5は客先での環境なので変更できません。 どうぞお力をお貸しください。。 よろしくお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する