コード例 #1
0
        public void SetPrnAreaToSingleWidth(Excel.Application oXL, Excel.Worksheet oWS)
        {
            RAIIFuncs rFuncs = new RAIIFuncs();

            using (RAIICont _raiiCont = new RAIICont())
            {
                //oXL.PrintCommunication = false;

                Excel.PageSetup ps = oWS.PageSetup;
                //_raiiCont.Push(rFuncs.GetFunc(ps));

                {                //header and footer setup
                    ps.LeftHeader   = "";
                    ps.CenterHeader = "";
                    ps.RightHeader  = "";
                    ps.LeftFooter   = "";
                    ps.CenterFooter = "";
                    ps.RightFooter  = "";
                }                //end of header and footer setup

                {                //begin of margin
                    ps.LeftMargin   = oXL.InchesToPoints(0.7);
                    ps.RightMargin  = oXL.InchesToPoints(0.7);
                    ps.TopMargin    = oXL.InchesToPoints(0.78);
                    ps.BottomMargin = oXL.InchesToPoints(0.78);
                    ps.HeaderMargin = oXL.InchesToPoints(0.3);
                    ps.FooterMargin = oXL.InchesToPoints(0.3);
                }                //end of margin

                {                //etcs
                    ps.PrintHeadings      = false;
                    ps.PrintGridlines     = false;
                    ps.PrintComments      = Excel.XlPrintLocation.xlPrintNoComments;
                    ps.CenterHorizontally = false;
                    ps.CenterVertically   = false;
                    ps.Orientation        = Excel.XlPageOrientation.xlLandscape;
                    ps.Draft                          = false;
                    ps.PaperSize                      = Excel.XlPaperSize.xlPaperA4;
                    ps.FirstPageNumber                = (int)Excel.Constants.xlAutomatic;
                    ps.Order                          = Excel.XlOrder.xlDownThenOver;
                    ps.BlackAndWhite                  = false;
                    ps.Zoom                           = false;
                    ps.PrintErrors                    = Excel.XlPrintErrors.xlPrintErrorsDisplayed;
                    ps.OddAndEvenPagesHeaderFooter    = false;
                    ps.DifferentFirstPageHeaderFooter = false;
                    ps.ScaleWithDocHeaderFooter       = true;
                    ps.AlignMarginsHeaderFooter       = true;
                }                //etcs


                ps.FitToPagesWide = 1;
                ps.FitToPagesTall = false;


                oXL.PrintCommunication = true;
            }
        }
コード例 #2
0
        public void ExportCSV(Excel.Application oAppXls, Excel.Workbooks oWBBs, Excel.Worksheet oWS, string strTableName, string strFileName)
        {
            RAIIFuncs rFuncs = new RAIIFuncs();

            using (RAIICont _raiiCont = new RAIICont())
            {
                Excel.Workbook _destWB = oWBBs.Add();
                _raiiCont.Push(rFuncs.GetFunc(_destWB));

                Excel.Sheets _oWSs = _destWB.Sheets;
                _raiiCont.Push(rFuncs.GetFunc(_oWSs));

                Excel.Worksheet _destWS = _oWSs[1];
                _raiiCont.Push(rFuncs.GetFunc(_destWS));

                Excel.Range _rngDest = _destWS.Range["A1"];
                _raiiCont.Push(rFuncs.GetFunc(_rngDest));

                Excel.ListObjects _LOs = oWS.ListObjects;
                _raiiCont.Push(rFuncs.GetFunc(_LOs));

                Excel.ListObject _srcLO = _LOs[strTableName];
                _raiiCont.Push(rFuncs.GetFunc(_srcLO));

                Excel.Range _srcRng = _srcLO.Range;
                _raiiCont.Push(rFuncs.GetFunc(_srcRng));

                _srcRng.Copy(_rngDest);

                oAppXls.DisplayAlerts = false;

                _destWB.SaveAs(
                    Filename: @"C:\Users\A.Roennburg\Documents\GH_ArbeitPlatz\Arbeits vom Sandra\MARKANT_CalculateSheet\CSV Daten\" + strFileName + ".csv"
                    , FileFormat: Excel.XlFileFormat.xlCSV
                    , CreateBackup: false
                    , Local: true
                    );
            }
            oAppXls.DisplayAlerts = true;
        }
コード例 #3
0
        public void SetPrintAreaToTable(Excel.Worksheet oWS, string strTblName)
        {
            RAIIFuncs rFuncs = new RAIIFuncs();

            using (RAIICont _raiiCont = new RAIICont())
            {
                Excel.ListObjects oLOs = oWS.ListObjects;
                _raiiCont.Push(rFuncs.GetFunc(oLOs));

                Excel.ListObject oLO = oLOs[strTblName];
                _raiiCont.Push(rFuncs.GetFunc(oLO));

                Excel.Range rngLO = oLO.Range;
                _raiiCont.Push(rFuncs.GetFunc(rngLO));

                string prntArea = rngLO.Address;

                Excel.PageSetup pageSetup = oWS.PageSetup;
                //_raiiCont.Push(rFuncs.GetFunc(pageSetup));

                pageSetup.PrintArea = prntArea;
            }
        }
コード例 #4
0
        /*
         *      Do not Parrelism here.
         *      It will be controlled by ... Program, it just callee
         */
        public int EntryPoint(string pathXls)
        {
            RAIIFuncs rFuncs = new RAIIFuncs();

            using (RAIICont _raiiCont = new RAIICont())
            {
                Excel.Application appExcel = new Excel.Application();

                #region Removed_Code

                /*
                 * Func<bool> toCall = () =>
                 * {
                 * appExcel.Quit();
                 * RMarschal.ReleaseComObject(appExcel);
                 * return true;
                 * };
                 */
                /*
                 * _raiiCont.Push( new RAII<Excel.Application>(
                 *      x => {
                 *              x.Quit();
                 *              RMarschal.ReleaseComObject(x);
                 *              return true;
                 *      }
                 *      , appExcel
                 *      ) );
                 */

                //throw new System.Exception("OMG");
                #endregion

                _raiiCont.Push(rFuncs.GetFunc(appExcel));

                Excel.Workbooks oWBs = appExcel.Workbooks;
                _raiiCont.Push(rFuncs.GetFunc(oWBs));


                Excel.Workbook _WB = oWBs.Open(pathXls, ReadOnly: true);
                _raiiCont.Push(rFuncs.GetFunc(_WB));

                string strName     = _WB.Name;
                string strBaseName = System.IO.Path.GetFileNameWithoutExtension(_WB.FullName);
                //System.Diagnostics.Debug.WriteLine( strBaseName );

                Excel.Sheets oWSs = _WB.Sheets;
                _raiiCont.Push(rFuncs.GetFunc(oWSs));

                Excel.Worksheet _WS = oWSs["ARBETISTABELLE"];
                _raiiCont.Push(rFuncs.GetFunc(_WS));

                SetPrintAreaToTable(_WS, "Tabelle1");
                SetPrnAreaToSingleWidth(appExcel, _WS);

                _WS.ExportAsFixedFormat(
                    Type: Excel.XlFixedFormatType.xlTypePDF
                    , Filename: @"C:\Users\A.Roennburg\Documents\GH_ArbeitPlatz\Arbeits vom Sandra\MARKANT_CalculateSheet\PDF Daten\" + strBaseName + ".pdf"
                    , Quality: Excel.XlFixedFormatQuality.xlQualityStandard
                    , IncludeDocProperties: true
                    , IgnorePrintAreas: false
                    , OpenAfterPublish: false
                    );

                ExportCSV(appExcel, oWBs, _WS, "Tabelle1", strBaseName);
            }

            return(0);
        }