ナレッジベース

Private Shared ReadOnly syncObject As New Object

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　Dim rpt As New rptSample()
　rpt.Run(False)
　SyncLock syncObject
　　rpt.Document.Print(False, False, False)
　End SyncLock
End Sub

private readonly object lockObject = new object();

private void button1_Click(object sender, EventArgs e)
{
　rptSample rpt = new rptSample();
　rpt.Run(false);
　lock (lockObject)
　{
　　rpt.Document.Print(false, false, false);
　}
}