2017-08-01 4 views
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) 
+0

申し訳ありませんが、質問/問題であり、説明は意味をなさない。 – Plutonix

+0

私は自分のプロジェクトをコンパイルしていますが、新しい変更を無視しています。これは起こる前ではありません –

+0

このコードはフォームのペイントイベントにありますか? –

答えて

0

プロジェクトフォルダ後藤デバッグフォルダを開き、プロジェクト名に一致としてのexeファイルを見つけ、そのファイルを削除して、再度プロジェクトをコンパイル

関連する問題