云板无加密锁，亦可打印报表等

Forms/ReportsFrm.pas

@@ -456,7 +456,7 @@ end;
 
 procedure TReportsForm.xlbPrintCurPageClick(Sender: TObject);
 begin
-  if _IsEncrypt then
+  if _IsEncrypt or G_IsCloud then
     PreviewComXML.Print(CurPage, 1)
   else
     TipMessage(GetHintStr);
@@ -473,7 +473,7 @@ end;
 
 procedure TReportsForm.xlbPrintClick(Sender: TObject);
 begin
-  if _IsEncrypt then
+  if _IsEncrypt or G_IsCloud then
   begin
     if extvReport.LeafCheckedCount > 0 then
       PrintAllSelectedReports
@@ -504,7 +504,7 @@ end;
 
 procedure TReportsForm.xlbToPDFClick(Sender: TObject);
 begin
-  if _IsEncrypt then
+  if _IsEncrypt or G_IsCloud then
   begin
     if extvReport.LeafCheckedCount > 0 then
       ExportAllSelectedPDFReports
@@ -534,7 +534,7 @@ end;
 
 procedure TReportsForm.xlbToExcelClick(Sender: TObject);
 begin
-  if _IsEncrypt then
+  if _IsEncrypt or G_IsCloud then
   begin
     if extvReport.LeafCheckedCount > 0 then
       ExportAllSelectedXlsReports