sc/source/ui/vba/vbapagesetup.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile$
  10  * $Revision$
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30 #include "vbapagesetup.hxx"
  31 #include "cellsuno.hxx"
  32 #include "convuno.hxx"
  33 #include "rangelst.hxx"
  34 #include "excelvbahelper.hxx"
  35 #include <com/sun/star/sheet/XPrintAreas.hpp>
  36 #include <com/sun/star/sheet/XHeaderFooterContent.hpp>
  37 #include <com/sun/star/text/XText.hpp>
  38 #include <com/sun/star/style/XStyleFamiliesSupplier.hpp>
  39 #include <com/sun/star/container/XNameAccess.hpp>
  40 #include <ooo/vba/excel/XlPageOrientation.hpp>
  41 #include <ooo/vba/excel/XlOrder.hpp>
  42 #include <ooo/vba/excel/Constants.hpp>
  43
  44 using namespace ::com::sun::star;
  45 using namespace ::ooo::vba;
  46
  47 #define ZOOM_IN 10
  48 #define ZOOM_MAX 400
  49
  50 bool getScRangeListForAddress( const rtl::OUString& sName, ScDocShell* pDocSh, ScRange& refRange, ScRangeList& aCellRanges, formula::FormulaGrammar::AddressConvention aConv = formula::FormulaGrammar::CONV_XL_A1 ) throw ( uno::RuntimeException );
  51
  52 ScVbaPageSetup::ScVbaPageSetup(const uno::Reference< XHelperInterface >& xParent,
  53                 const uno::Reference< uno::XComponentContext >& xContext,
  54                 const uno::Reference< sheet::XSpreadsheet >& xSheet,
  55                 const uno::Reference< frame::XModel >& xModel) throw (uno::RuntimeException):
  56                 ScVbaPageSetup_BASE( xParent, xContext ), mxSheet( xSheet )
  57 {
  58     // query for current page style
  59     mxModel.set( xModel, uno::UNO_QUERY_THROW );
  60     uno::Reference< beans::XPropertySet > xSheetProps( mxSheet, uno::UNO_QUERY_THROW );
  61     uno::Any aValue = xSheetProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "PageStyle" )));
  62     rtl::OUString aStyleName;
  63     aValue >>= aStyleName;
  64
  65     uno::Reference< style::XStyleFamiliesSupplier > xStyleFamiliesSup( mxModel, uno::UNO_QUERY_THROW );
  66     uno::Reference< container::XNameAccess > xStyleFamilies = xStyleFamiliesSup->getStyleFamilies();
  67     uno::Reference< container::XNameAccess > xPageStyle( xStyleFamilies->getByName(rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("PageStyles"))), uno::UNO_QUERY_THROW );
  68     mxPageProps.set( xPageStyle->getByName(aStyleName), uno::UNO_QUERY_THROW );
  69     mnOrientLandscape = excel::XlPageOrientation::xlLandscape;
  70     mnOrientPortrait = excel::XlPageOrientation::xlPortrait;
  71 }
  72
  73 rtl::OUString SAL_CALL ScVbaPageSetup::getPrintArea() throw (css::uno::RuntimeException)
  74 {
  75     String aPrintArea;
  76     uno::Reference< sheet::XPrintAreas > xPrintAreas( mxSheet, uno::UNO_QUERY_THROW );
  77     uno::Sequence< table::CellRangeAddress > aSeq = xPrintAreas->getPrintAreas();
  78     sal_Int32 nCount = aSeq.getLength();
  79     if( nCount )
  80     {
  81         ScAddress::Details aDetails( formula::FormulaGrammar::CONV_XL_A1, 0, 0 );
  82         USHORT nFlags = SCA_VALID;
  83         nFlags |= ( SCA_TAB_ABSOLUTE | SCA_COL_ABSOLUTE | SCA_ROW_ABSOLUTE | SCA_TAB2_ABSOLUTE | SCA_COL2_ABSOLUTE | SCA_ROW2_ABSOLUTE );
  84         ScRangeList aRangeList;
  85         for( sal_Int32 i=0; i<nCount; i++ )
  86         {
  87             ScRange aRange;
  88             ScUnoConversion::FillScRange( aRange, aSeq[i] );
  89             aRangeList.Append( aRange );
  90         }
  91                 ScDocument* pDoc = excel::getDocShell( mxModel )->GetDocument();
  92         aRangeList.Format( aPrintArea, nFlags, pDoc, formula::FormulaGrammar::CONV_XL_A1, ','  );
  93     }
  94
  95     return aPrintArea;
  96 }
  97
  98 void SAL_CALL ScVbaPageSetup::setPrintArea( const rtl::OUString& rAreas ) throw (css::uno::RuntimeException)
  99 {
 100     uno::Reference< sheet::XPrintAreas > xPrintAreas( mxSheet, uno::UNO_QUERY_THROW );
 101     if( rAreas.getLength() == 0 ||
 102         rAreas.equalsIgnoreAsciiCase ( rtl::OUString::createFromAscii("FALSE") ) )
 103     {
 104         // print the whole sheet
 105         uno::Sequence< table::CellRangeAddress > aSeq;
 106         xPrintAreas->setPrintAreas( aSeq );
 107     }
 108     else
 109     {
 110         ScRangeList aCellRanges;
 111         ScRange aRange;
 112                 if( getScRangeListForAddress( rAreas, excel::getDocShell( mxModel ) , aRange, aCellRanges ) )
 113         {
 114             uno::Sequence< table::CellRangeAddress > aSeq( aCellRanges.Count() );
 115             USHORT i=0;
 116             for( ScRange* pRange = aCellRanges.First(); pRange; pRange = aCellRanges.Next() )
 117             {
 118                 table::CellRangeAddress aRangeAddress;
 119                 ScUnoConversion::FillApiRange( aRangeAddress, *pRange );
 120                 aSeq[ i++ ] = aRangeAddress;
 121             }
 122             xPrintAreas->setPrintAreas( aSeq );
 123         }
 124     }
 125 }
 126
 127 double SAL_CALL ScVbaPageSetup::getHeaderMargin() throw (css::uno::RuntimeException)
 128 {
 129     return VbaPageSetupBase::getHeaderMargin();
 130     }
 131
 132 void SAL_CALL ScVbaPageSetup::setHeaderMargin( double margin ) throw (css::uno::RuntimeException)
 133 {
 134     VbaPageSetupBase::setHeaderMargin( margin );
 135     }
 136
 137 double SAL_CALL ScVbaPageSetup::getFooterMargin() throw (css::uno::RuntimeException)
 138 {
 139     return VbaPageSetupBase::getFooterMargin();
 140     }
 141
 142 void SAL_CALL ScVbaPageSetup::setFooterMargin( double margin ) throw (css::uno::RuntimeException)
 143 {
 144     VbaPageSetupBase::setFooterMargin( margin );
 145     }
 146
 147 uno::Any SAL_CALL ScVbaPageSetup::getFitToPagesTall() throw (css::uno::RuntimeException)
 148 {
 149     return mxPageProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ScaleToPagesY")));
 150 }
 151
 152 void SAL_CALL ScVbaPageSetup::setFitToPagesTall( const uno::Any& fitToPagesTall) throw (css::uno::RuntimeException)
 153 {
 154     USHORT scaleToPageY = 0;
 155     try
 156     {
 157         sal_Bool aValue;
 158         if( fitToPagesTall.getValueTypeClass() != uno::TypeClass_BOOLEAN || (fitToPagesTall >>= aValue))
 159         {
 160             fitToPagesTall >>= scaleToPageY;
 161         }
 162
 163         mxPageProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ScaleToPagesY")), uno::makeAny( scaleToPageY ));
 164     }
 165     catch( uno::Exception& )
 166     {
 167     }
 168 }
 169
 170 uno::Any SAL_CALL ScVbaPageSetup::getFitToPagesWide() throw (css::uno::RuntimeException)
 171 {
 172     return mxPageProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ScaleToPagesX")));
 173 }
 174
 175 void SAL_CALL ScVbaPageSetup::setFitToPagesWide( const uno::Any& fitToPagesWide) throw (css::uno::RuntimeException)
 176 {
 177     USHORT scaleToPageX = 0;
 178     try
 179     {
 180         sal_Bool aValue = sal_False;
 181         if( fitToPagesWide.getValueTypeClass() != uno::TypeClass_BOOLEAN || (fitToPagesWide >>= aValue))
 182         {
 183             fitToPagesWide >>= scaleToPageX;
 184         }
 185
 186         mxPageProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ScaleToPagesX")), uno::makeAny( scaleToPageX ));
 187     }
 188     catch( uno::Exception& )
 189     {
 190     }
 191 }
 192
 193 uno::Any SAL_CALL ScVbaPageSetup::getZoom() throw (css::uno::RuntimeException)
 194 {
 195     return mxPageProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("PageScale")));
 196 }
 197
 198 void SAL_CALL ScVbaPageSetup::setZoom( const uno::Any& zoom) throw (css::uno::RuntimeException)
 199 {
 200     USHORT pageScale = 0;
 201     try
 202     {
 203         if( zoom.getValueTypeClass() == uno::TypeClass_BOOLEAN )
 204         {
 205             sal_Bool aValue = sal_False;
 206             zoom >>= aValue;
 207             if( aValue )
 208             {
 209                 DebugHelper::exception(SbERR_BAD_PARAMETER, rtl::OUString() );
 210             }
 211         }
 212         else
 213         {
 214             zoom >>= pageScale;
 215             if(( pageScale < ZOOM_IN )||( pageScale > ZOOM_MAX ))
 216             {
 217                 DebugHelper::exception(SbERR_BAD_PARAMETER, rtl::OUString() );
 218             }
 219         }
 220
 221         // these only exist in S08
 222         USHORT nScale = 0;
 223         mxPageProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ScaleToPages")), uno::makeAny( nScale ));
 224         mxPageProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ScaleToPagesX")), uno::makeAny( nScale ));
 225         mxPageProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ScaleToPagesY")), uno::makeAny( nScale ));
 226     }
 227     catch( beans::UnknownPropertyException& )
 228     {
 229         if( pageScale == 0 )
 230         {
 231             DebugHelper::exception(SbERR_BAD_PARAMETER, rtl::OUString() );
 232         }
 233     }
 234     catch( uno::Exception& )
 235     {
 236     }
 237
 238     mxPageProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("PageScale")), uno::makeAny( pageScale ));
 239 }
 240
 241 rtl::OUString SAL_CALL ScVbaPageSetup::getLeftHeader() throw (css::uno::RuntimeException)
 242 {
 243     rtl::OUString leftHeader;
 244     try
 245     {
 246         uno::Reference<sheet::XHeaderFooterContent> xHeaderContent( mxPageProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("RightPageHeaderContent"))), uno::UNO_QUERY_THROW);
 247         if( xHeaderContent.is() )
 248         {
 249             uno::Reference< text::XText > xText = xHeaderContent->getLeftText();
 250             leftHeader = xText->getString();
 251         }
 252     }
 253     catch( uno::Exception& )
 254     {
 255     }
 256
 257     return leftHeader;
 258 }
 259
 260 void SAL_CALL ScVbaPageSetup::setLeftHeader( const rtl::OUString& leftHeader) throw (css::uno::RuntimeException)
 261 {
 262     try
 263     {
 264         uno::Reference<sheet::XHeaderFooterContent> xHeaderContent( mxPageProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("RightPageHeaderContent"))), uno::UNO_QUERY_THROW);
 265         if( xHeaderContent.is() )
 266         {
 267             uno::Reference< text::XText > xText = xHeaderContent->getLeftText();
 268             xText->setString( leftHeader );
 269             mxPageProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("RightPageHeaderContent")), uno::makeAny(xHeaderContent) );
 270         }
 271     }
 272     catch( uno::Exception& )
 273     {
 274     }
 275 }
 276
 277 rtl::OUString SAL_CALL ScVbaPageSetup::getCenterHeader() throw (css::uno::RuntimeException)
 278 {
 279     rtl::OUString centerHeader;
 280     try
 281     {
 282         uno::Reference<sheet::XHeaderFooterContent> xHeaderContent( mxPageProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("RightPageHeaderContent"))), uno::UNO_QUERY_THROW);
 283         if( xHeaderContent.is() )
 284         {
 285             uno::Reference< text::XText > xText = xHeaderContent->getCenterText();
 286             centerHeader = xText->getString();
 287         }
 288     }
 289     catch( uno::Exception& )
 290     {
 291     }
 292
 293     return centerHeader;
 294 }
 295
 296 void SAL_CALL ScVbaPageSetup::setCenterHeader( const rtl::OUString& centerHeader) throw (css::uno::RuntimeException)
 297 {
 298     try
 299     {
 300         uno::Reference<sheet::XHeaderFooterContent> xHeaderContent( mxPageProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("RightPageHeaderContent"))), uno::UNO_QUERY_THROW);
 301         if( xHeaderContent.is() )
 302         {
 303             uno::Reference< text::XText > xText = xHeaderContent->getCenterText();
 304             xText->setString( centerHeader );
 305             mxPageProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("RightPageHeaderContent")), uno::makeAny(xHeaderContent) );
 306         }
 307     }
 308     catch( uno::Exception& )
 309     {
 310     }
 311 }
 312
 313 rtl::OUString SAL_CALL ScVbaPageSetup::getRightHeader() throw (css::uno::RuntimeException)
 314 {
 315     rtl::OUString rightHeader;
 316     try
 317     {
 318         uno::Reference<sheet::XHeaderFooterContent> xHeaderContent( mxPageProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("RightPageHeaderContent"))), uno::UNO_QUERY_THROW);
 319         if( xHeaderContent.is() )
 320         {
 321             uno::Reference< text::XText > xText = xHeaderContent->getRightText();
 322             rightHeader = xText->getString();
 323         }
 324     }
 325     catch( uno::Exception& )
 326     {
 327     }
 328
 329     return rightHeader;
 330 }
 331
 332 void SAL_CALL ScVbaPageSetup::setRightHeader( const rtl::OUString& rightHeader) throw (css::uno::RuntimeException)
 333 {
 334     try
 335     {
 336         uno::Reference<sheet::XHeaderFooterContent> xHeaderContent( mxPageProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("RightPageHeaderContent"))), uno::UNO_QUERY_THROW);
 337         if( xHeaderContent.is() )
 338         {
 339             uno::Reference< text::XText > xText = xHeaderContent->getRightText();
 340             xText->setString( rightHeader );
 341             mxPageProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("RightPageHeaderContent")), uno::makeAny(xHeaderContent) );
 342         }
 343     }
 344     catch( uno::Exception& )
 345     {
 346     }
 347 }
 348
 349 rtl::OUString SAL_CALL ScVbaPageSetup::getLeftFooter() throw (css::uno::RuntimeException)
 350 {
 351     rtl::OUString leftFooter;
 352     try
 353     {
 354         uno::Reference<sheet::XHeaderFooterContent> xFooterContent( mxPageProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("RightPageFooterContent"))), uno::UNO_QUERY_THROW);
 355         if( xFooterContent.is() )
 356         {
 357             uno::Reference< text::XText > xText = xFooterContent->getLeftText();
 358             leftFooter = xText->getString();
 359         }
 360     }
 361     catch( uno::Exception& )
 362     {
 363     }
 364
 365     return leftFooter;
 366 }
 367
 368 void SAL_CALL ScVbaPageSetup::setLeftFooter( const rtl::OUString& leftFooter) throw (css::uno::RuntimeException)
 369 {
 370     try
 371     {
 372         uno::Reference<sheet::XHeaderFooterContent> xFooterContent( mxPageProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("RightPageFooterContent"))), uno::UNO_QUERY_THROW);
 373         if( xFooterContent.is() )
 374         {
 375             uno::Reference< text::XText > xText = xFooterContent->getLeftText();
 376             xText->setString( leftFooter );
 377             mxPageProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("RightPageFooterContent")), uno::makeAny(xFooterContent) );
 378         }
 379     }
 380     catch( uno::Exception& )
 381     {
 382     }
 383 }
 384
 385 rtl::OUString SAL_CALL ScVbaPageSetup::getCenterFooter() throw (css::uno::RuntimeException)
 386 {
 387     rtl::OUString centerFooter;
 388     try
 389     {
 390         uno::Reference<sheet::XHeaderFooterContent> xFooterContent( mxPageProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("RightPageFooterContent"))), uno::UNO_QUERY_THROW);
 391         if( xFooterContent.is() )
 392         {
 393             uno::Reference< text::XText > xText = xFooterContent->getCenterText();
 394             centerFooter = xText->getString();
 395         }
 396     }
 397     catch( uno::Exception& )
 398     {
 399     }
 400
 401     return centerFooter;
 402 }
 403
 404 void SAL_CALL ScVbaPageSetup::setCenterFooter( const rtl::OUString& centerFooter) throw (css::uno::RuntimeException)
 405 {
 406     try
 407     {
 408         uno::Reference<sheet::XHeaderFooterContent> xFooterContent( mxPageProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("RightPageFooterContent"))), uno::UNO_QUERY_THROW);
 409         if( xFooterContent.is() )
 410         {
 411             uno::Reference< text::XText > xText = xFooterContent->getCenterText();
 412             xText->setString( centerFooter );
 413             mxPageProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("RightPageFooterContent")), uno::makeAny(xFooterContent) );
 414         }
 415     }
 416     catch( uno::Exception& )
 417     {
 418     }
 419
 420 }
 421
 422 rtl::OUString SAL_CALL ScVbaPageSetup::getRightFooter() throw (css::uno::RuntimeException)
 423 {
 424     rtl::OUString rightFooter;
 425     try
 426     {
 427         uno::Reference<sheet::XHeaderFooterContent> xFooterContent( mxPageProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("RightPageFooterContent"))), uno::UNO_QUERY_THROW);
 428         if( xFooterContent.is() )
 429         {
 430             uno::Reference< text::XText > xText = xFooterContent->getRightText();
 431             rightFooter = xText->getString();
 432         }
 433     }
 434     catch( uno::Exception& )
 435     {
 436     }
 437
 438     return rightFooter;
 439 }
 440
 441 void SAL_CALL ScVbaPageSetup::setRightFooter( const rtl::OUString& rightFooter) throw (css::uno::RuntimeException)
 442 {
 443     try
 444     {
 445         uno::Reference<sheet::XHeaderFooterContent> xFooterContent( mxPageProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("RightPageFooterContent"))), uno::UNO_QUERY_THROW);
 446         if( xFooterContent.is() )
 447         {
 448             uno::Reference< text::XText > xText = xFooterContent->getRightText();
 449             xText->setString( rightFooter );
 450             mxPageProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("RightPageFooterContent")), uno::makeAny(xFooterContent) );
 451         }
 452     }
 453     catch( uno::Exception& )
 454     {
 455     }
 456 }
 457
 458 sal_Int32 SAL_CALL ScVbaPageSetup::getOrder() throw (css::uno::RuntimeException)
 459 {
 460     sal_Int32 order = excel::XlOrder::xlDownThenOver;
 461     try
 462     {
 463         uno::Any aValue = mxPageProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("PrintDownFirst")));
 464         sal_Bool bPrintDownFirst = sal_False;
 465         aValue >>= bPrintDownFirst;
 466         if( !bPrintDownFirst )
 467             order = excel::XlOrder::xlOverThenDown;
 468     }
 469     catch( uno::Exception& )
 470     {
 471     }
 472
 473     return order;
 474 }
 475
 476 void SAL_CALL ScVbaPageSetup::setOrder( sal_Int32 order) throw (css::uno::RuntimeException)
 477 {
 478     sal_Bool bOrder = sal_True;
 479     switch( order )
 480     {
 481         case excel::XlOrder::xlDownThenOver:
 482             break;
 483         case excel::XlOrder::xlOverThenDown:
 484             bOrder = sal_False;
 485             break;
 486         default:
 487             DebugHelper::exception(SbERR_BAD_PARAMETER, rtl::OUString() );
 488     }
 489
 490     try
 491     {
 492         mxPageProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("PrintDownFirst")), uno::makeAny( bOrder ));
 493     }
 494     catch( uno::Exception& )
 495     {
 496     }
 497 }
 498
 499 sal_Int32 SAL_CALL ScVbaPageSetup::getFirstPageNumber() throw (css::uno::RuntimeException)
 500 {
 501     sal_Int16 number = 0;
 502     try
 503     {
 504         uno::Any aValue = mxPageProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("FirstPageNumber")));
 505         aValue >>= number;
 506     }
 507     catch( uno::Exception& )
 508     {
 509     }
 510
 511     if( number ==0 )
 512     {
 513         number = excel::Constants::xlAutomatic;
 514     }
 515
 516     return number;
 517 }
 518
 519 void SAL_CALL ScVbaPageSetup::setFirstPageNumber( sal_Int32 firstPageNumber) throw (css::uno::RuntimeException)
 520 {
 521     if( firstPageNumber < 0 )
 522         DebugHelper::exception(SbERR_BAD_PARAMETER, rtl::OUString() );
 523     if( firstPageNumber == excel::Constants::xlAutomatic )
 524         firstPageNumber = 0;
 525
 526     try
 527     {
 528         uno::Any aValue;
 529         aValue <<= (sal_Int16)firstPageNumber;
 530         mxPageProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("FirstPageNumber")), aValue );
 531     }
 532     catch( uno::Exception& )
 533     {
 534     }
 535 }
 536
 537 sal_Bool SAL_CALL ScVbaPageSetup::getCenterVertically() throw (css::uno::RuntimeException)
 538 {
 539     sal_Bool centerVertically = sal_False;
 540     try
 541     {
 542         uno::Any aValue = mxPageProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("CenterVertically")));
 543         aValue >>= centerVertically;
 544     }
 545     catch( uno::Exception& )
 546     {
 547     }
 548     return centerVertically;
 549 }
 550
 551 void SAL_CALL ScVbaPageSetup::setCenterVertically( sal_Bool centerVertically) throw (css::uno::RuntimeException)
 552 {
 553     try
 554     {
 555         mxPageProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("CenterVertically")), uno::makeAny( centerVertically ));
 556     }
 557     catch( uno::Exception& )
 558     {
 559     }
 560 }
 561
 562 sal_Bool SAL_CALL ScVbaPageSetup::getCenterHorizontally() throw (css::uno::RuntimeException)
 563 {
 564     sal_Bool centerHorizontally = sal_False;
 565     try
 566     {
 567         uno::Any aValue = mxPageProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("CenterHorizontally")));
 568         aValue >>= centerHorizontally;
 569     }
 570     catch( uno::Exception& )
 571     {
 572     }
 573     return centerHorizontally;
 574 }
 575
 576 void SAL_CALL ScVbaPageSetup::setCenterHorizontally( sal_Bool centerHorizontally) throw (css::uno::RuntimeException)
 577 {
 578     try
 579     {
 580         mxPageProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("CenterHorizontally")), uno::makeAny( centerHorizontally ));
 581     }
 582     catch( uno::Exception& )
 583     {
 584     }
 585 }
 586
 587 sal_Bool SAL_CALL ScVbaPageSetup::getPrintHeadings() throw (css::uno::RuntimeException)
 588 {
 589     sal_Bool printHeadings = sal_False;
 590     try
 591     {
 592         uno::Any aValue = mxPageProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("PrintHeaders")));
 593         aValue >>= printHeadings;
 594     }
 595     catch( uno::Exception& )
 596     {
 597     }
 598     return printHeadings;
 599 }
 600
 601 void SAL_CALL ScVbaPageSetup::setPrintHeadings( sal_Bool printHeadings) throw (css::uno::RuntimeException)
 602 {
 603     try
 604     {
 605         mxPageProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("PrintHeaders")), uno::makeAny( printHeadings ));
 606     }
 607     catch( uno::Exception& )
 608     {
 609     }
 610 }
 611
 612 rtl::OUString&
 613 ScVbaPageSetup::getServiceImplName()
 614 {
 615     static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("ScVbaPageSetup") );
 616     return sImplName;
 617 }
 618
 619 uno::Sequence< rtl::OUString >
 620 ScVbaPageSetup::getServiceNames()
 621 {
 622     static uno::Sequence< rtl::OUString > aServiceNames;
 623     if ( aServiceNames.getLength() == 0 )
 624     {
 625         aServiceNames.realloc( 1 );
 626         aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.excel.PageSetup" ) );
 627     }
 628     return aServiceNames;
 629 }