btzgrp
  • 現在のデスクトップ画像にメモや写真を追加できるユーティリティが必要 - TechRepublic
Headlines

Printer.PaintPicture pic.Picture, 0, 0, pic.Width, pic.Height - TechRepublic

05 mins
Printer.PaintPicture pic.Picture, 0, 0, pic.Width, pic.Height - TechRepublic

  • Printer.PaintPicture pic.Picture, 0, 0, pic.Width, pic.Height

    これは簡単なはずです。線と塗りがtwip単位で入力された大きなピクチャボックスがあり、それをページサイズに分割する必要があります。上記の記述に基づいたサンプルは数多くありますが、「画像が無効です」というエラーが発生します。いくつか試してみましたが、エラーにならないのは次の1つだけです。

    Printer.PaintPicture pic.Image, 0, 0, pic.Width, pic.Height
    しかし、何も生成されません。

    私のコードの他の箇所では、

    もしSetupPrinter(Me) Then
    pic.Picture = pic.Image
    Printer.PaintPicture pic.Picture, Printer.CurrentX, Printer.CurrentY
    Printer.EndDoc
    End If

    それはうまくいきます。しかし、この場合は

    pic.Picture = pic.Image

    ピクチャーボックスを消去します。

Tagged:

Related News