0
私はvb.netのウィンドウプロジェクトに取り組んでいます。私はprintpreviewダイアログを使用し、印刷のために文書を印刷しました。私はprintdocumentが生成されないことがあることに気付きました。これは、コードでは、古い出力を生成する変更が何であるかを無視するという意味です。だから誰も私の問題を解決することができます。ここでPrintdcoumentがコードとして出力されない
は私のコード
Dim y% = 10
Dim headerf = New Font("verdana", 13, FontStyle.Bold)
Dim normalf = New Font("verdana", 12, FontStyle.Regular)
e.Graphics.DrawString("Rajesh Dalal", New Font("Verdana", 25, FontStyle.Regular), Brushes.Black, 290, 30)
'Rectangle
e.Graphics.DrawRectangle(Pens.Black, New Drawing.Rectangle(60, 100, 740, 110)) 'rectangle small
e.Graphics.DrawRectangle(Pens.Black, New Drawing.Rectangle(60, 230, 740, 800)) 'rectangle biggest
'Small rectangle contents
e.Graphics.DrawString("Shop Name : ", headerf, Brushes.Black, 80, 120)
e.Graphics.DrawString(StrConv(lblShopName.Text, VbStrConv.ProperCase), New Font("verdana", 13, FontStyle.Regular), Brushes.Black, 220, 120)
e.Graphics.DrawString("Duration : ", headerf, Brushes.Black, 80, 160)
e.Graphics.DrawString(ddfrom.Value.Date.Day & "/" & ddfrom.Value.Date.Month & "/" & ddfrom.Value.Date.Year, New Font("verdana", 13, FontStyle.Regular), Brushes.Black, 220, 160)
e.Graphics.DrawString("To", headerf, Brushes.Black, 345, 160)
e.Graphics.DrawString(ddto.Value.Date.Day & "/" & ddto.Value.Date.Month & "/" & ddto.Value.Date.Year, New Font("verdana", 13, FontStyle.Regular), Brushes.Black, 400, 160)
e.Graphics.DrawString(Now.Date.Day & "/" & Now.Date.Month & "/" & Now.Date.Year, New Font("verdana", 13, FontStyle.Regular), Brushes.Black, 620, 120)
e.Graphics.DrawString("Bill Date : ", headerf, Brushes.Black, 600, 120)
申し訳ありませんが、質問/問題であり、説明は意味をなさない。 – Plutonix
私は自分のプロジェクトをコンパイルしていますが、新しい変更を無視しています。これは起こる前ではありません –
このコードはフォームのペイントイベントにありますか? –