Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/fNotePrt.pas

Timestamp:

Jul 6, 2008, 8:20:14 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Uploading from OR_30_258

File:

• cprs/branches/foia-cprs/CPRS-Chart/fNotePrt.pas (modified) (1 diff)

cprs/branches/foia-cprs/CPRS-Chart/fNotePrt.pas

@@ -202 +202 @@
   if Piece(cboDevice.ItemID, ';', 1) = 'WIN' then
     begin
-    FReportText.Lines.Assign(GetFormattedNote(FNote, ChartCopy));
-    PrintWindowsReport(FReportText, PAGE_BREAK, Self.Caption, ErrMsg);
-    if Length(ErrMsg) > 0 then InfoBox(ErrMsg, TX_ERR_CAP, MB_OK);
+    if dlgWinPrinter.Execute then
+       begin
+       FReportText.Lines.Assign(GetFormattedNote(FNote, ChartCopy));
+       PrintWindowsReport(FReportText, PAGE_BREAK, Self.Caption, ErrMsg);
+       if Length(ErrMsg) > 0 then InfoBox(ErrMsg, TX_ERR_CAP, MB_OK);
+       end
     end
   else