タイトル : ページ替えさせないように印刷する方法を教えてください。 投稿日 : 2008/07/29(Tue) 19:44 投稿者 : Aco
お世話様になります。 ダンボ様に教えていただき、1回目の難問は突破出来たのですが、1枚の用紙に3カ所の印刷をするプログラムを書きたいのですが、3カ所の縦横の位置とデータを変えるだけで印刷方法のコードは同じですので以下のようにしたのですが、 第1面を印刷すると次の用紙が送られ、第2面、第3面も同じくページ換えをしてしまい、1枚の用紙に3カ所の印刷が出来ません。 Private Sub Insatu() '第1面 Sagyo = Num_1 Yoko = 10 Tate = 95 PrintDocument1.Print() ’ここでページ替えされてしまいます。 '第2面 Sagyo = Num_2 Yoko = 10 Tate = 180 PrintDocument1.Print() ’ここでページ替えされてしまいます。 '第3面 Sagyo = Num_3 Yoko = 10 Tate = 275 PrintDocument1.Print() ’ここでページ替えされてしまいます。 End Sub Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage e.Graphics.DrawString(Sagyo, New Font("Arial", 8, FontStyle.Regular), Black, Yoko, Tate) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Tenki() Insatu() End Sub 『PrintDocument1_PrintPage』の処理は、本当はとても複雑にしてありますので別の独立した『Subプロシージャ』にしたいのです。 本当に何度もお世話かけて申し訳ありませんがよろしくお願いします。 |