> コツやお作法等があるのでしたらアドバイスよろしくお願いします。
以下のコードでお試しください。
Dim pt(4) As POINTAPI
pt(0).x = 0
pt(0).y = 0
pt(1).x = 100
pt(1).y = 100
pt(2).x = 200
pt(2).y = 0
pt(3).x = 300
pt(3).y = 100
Printer.Print " " '印刷開始を知らせる為
Call PolyBezier(Printer.hdc, pt(0), 4)
Printer.EndDoc '印刷の終了
注意する点としてダミーを出力して印刷の開始を
プリンターオブジェクトに知らせる必要がある。
最後にEndDocで終わる。
ぐらいですね。
特に上のダミー出力はAPIで印刷するとき対外ここで
つまずきますね。(僕も今思い出しました。(^^;)
では。
|