testautomation/framework/optional/includes/options_ooo_print.inc

   1 'encoding UTF-8  Do not remove or change this line!
   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: options_ooo_print.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 12:18:15 $
  14 '*
  15 '* This file is part of OpenOffice.org.
  16 '*
  17 '* OpenOffice.org is free software: you can redistribute it and/or modify
  18 '* it under the terms of the GNU Lesser General Public License version 3
  19 '* only, as published by the Free Software Foundation.
  20 '*
  21 '* OpenOffice.org is distributed in the hope that it will be useful,
  22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 '* GNU Lesser General Public License version 3 for more details
  25 '* (a copy is included in the LICENSE file that accompanied this code).
  26 '*
  27 '* You should have received a copy of the GNU Lesser General Public License
  28 '* version 3 along with OpenOffice.org.  If not, see
  29 '* <http://www.openoffice.org/license.html>
  30 '* for a copy of the LGPLv3 License.
  31 '*
  32 '/************************************************************************
  33 '*
  34 '* owner : thorsten.bosbach@sun.com
  35 '*
  36 '* short description : Tools->Options: OpenOffice.org Print
  37 '*
  38 '\******************************************************************************
  39
  40
  41 testcase tOOoPrint
  42
  43   Dim lbSave ( 3 ) as Boolean
  44   Dim lsSavePrinter ( 3 ) as String
  45   Dim lbSavePrinter ( 13 ) as Boolean
  46   Dim lsSaveFile ( 3 ) as String
  47   Dim lbSaveFile ( 13 ) as Boolean
  48
  49 '///check if all settings are saved in configuration ( StarOffice / Print )
  50 '///open options 'StarOffice' / 'Print'
  51    ToolsOptions
  52    hToolsOptions ( "StarOffice", "Print" )
  53
  54 '///save old settings
  55 '///- save the settings for printer-section
  56  printlog " - save old settings"
  57  printlog "    - save settings for 'printer'"
  58   Printer.Check
  59   Sleep (2)
  60    lbSavePrinter (1)  = ReduceTransparency.IsChecked
  61    ReduceTransparency.Uncheck
  62    lbSave(3) = Transparency.IsChecked
  63    ReduceTransparency.Check
  64    lbSavePrinter (2)  = Automatically.IsChecked
  65    lbSavePrinter (3)  = NoTransparency.IsChecked
  66
  67    lbSavePrinter (4)  = ReduceGradients.IsChecked
  68    ReduceGradients.Check
  69    lbSavePrinter (5)  = GradientStripes.IsChecked
  70    lbSavePrinter (6)  = IntermediateColor.IsChecked
  71    GradientStripes.Check
  72    lsSavePrinter (1)  = Stripes.GetText
  73
  74    lbSavePrinter (7)  = ReduceBitmaps.IsChecked
  75    ReduceBitmaps.Check
  76    lbSavePrinter (8)  = GoodPrintQuality.IsChecked
  77    lbSavePrinter (9)  = NormalPrintQuality.IsChecked
  78    lbSavePrinter (10) = Resolution.IsChecked
  79    lbSavePrinter (11) = IncludeTransparentObjects.IsChecked
  80    Resolution.Check
  81    lsSavePrinter (2)  = DPI.GetSelText
  82
  83    lbSavePrinter (12) = ConvertColorsToGrayscale.IsChecked
  84
  85 '///- save settings for 'print to file'
  86  printlog "    - save settings for 'print to file'"
  87   PrintToFile.Check
  88   Sleep (2)
  89    lbSaveFile (1)  = ReduceTransparency.IsChecked
  90    ReduceTransparency.Check
  91    lbSaveFile (2)  = Automatically.IsChecked
  92    lbSaveFile (3)  = NoTransparency.IsChecked
  93
  94    lbSaveFile (4)  = ReduceGradients.IsChecked
  95    ReduceGradients.Check
  96    lbSaveFile (5)  = GradientStripes.IsChecked
  97    lbSaveFile (6)  = IntermediateColor.IsChecked
  98    GradientStripes.Check
  99    lsSaveFile (1)  = Stripes.GetText
 100
 101    lbSaveFile (7)  = ReduceBitmaps.IsChecked
 102    ReduceBitmaps.Check
 103    lbSaveFile (8)  = GoodPrintQuality.IsChecked
 104    lbSaveFile (9)  = NormalPrintQuality.IsChecked
 105    lbSaveFile (10) = Resolution.IsChecked
 106    lbSaveFile (11) = IncludeTransparentObjects.IsChecked
 107    Resolution.Check
 108    lsSaveFile (2)  = DPI.GetSelText
 109
 110    lbSaveFile (12) = ConvertColorsToGrayscale.IsChecked
 111
 112 '///- save general settings
 113  printlog "    - save general settings "
 114    lbSave(1) = PaperOrientation.IsChecked
 115    lbSave(2) = PaperSize.IsChecked
 116
 117 '///invert/change settings
 118 '///- changes for 'printer'
 119  printlog " - invert/change settings"
 120  printlog "    - changes for 'printer'"
 121   Printer.Check
 122   Sleep (2)
 123    if lbSavePrinter (1) = FALSE then ReduceTransparency.Check else ReduceTransparency.UnCheck
 124    if ReduceTransparency.IsChecked then
 125       NoTransparency.Check
 126    else
 127       if lbSave(3)         = FALSE then Transparency.Check else Transparency.UnCheck
 128    end if
 129
 130    if lbSavePrinter (4) = FALSE then ReduceGradients.Check else ReduceGradients.UnCheck
 131    if ReduceGradients.IsChecked then
 132       IntermediateColor.Check
 133    end if
 134
 135    if lbSavePrinter (7)  = FALSE then ReduceBitmaps.Check else ReduceBitmaps.UnCheck
 136    if ReduceBitmaps.IsChecked then
 137       Resolution.Check
 138       DPI.select 1
 139       if lbSavePrinter (11) = FALSE then IncludeTransparentObjects.Check else IncludeTransparentObjects.UnCheck
 140    end if
 141
 142    if lbSavePrinter (12) = FALSE then ConvertColorsToGrayscale.Check else ConvertColorsToGrayscale.UnCheck
 143
 144 '///- changes for 'print to file'
 145  printlog "    - changes for 'print to file'"
 146   PrintToFile.Check
 147   Sleep (2)
 148    if lbSaveFile (1) = FALSE then ReduceTransparency.Check else ReduceTransparency.UnCheck
 149    if ReduceTransparency.IsChecked then
 150       Automatically.Check
 151    end if
 152
 153    if lbSaveFile (4) = FALSE then ReduceGradients.Check else ReduceGradients.UnCheck
 154    if ReduceGradients.IsChecked then
 155       GradientStripes.Check
 156       Stripes.SetText "30"
 157    end if
 158
 159    if lbSaveFile (7)  = FALSE then ReduceBitmaps.Check else ReduceBitmaps.UnCheck
 160    if ReduceBitmaps.IsChecked then
 161       GoodPrintQuality.Check
 162       if lbSaveFile (11) = FALSE then IncludeTransparentObjects.Check else IncludeTransparentObjects.UnCheck
 163    end if
 164
 165    if lbSaveFile (12) = FALSE then ConvertColorsToGrayscale.Check else ConvertColorsToGrayscale.UnCheck
 166
 167 '///- changes for general settings
 168  printlog "    - changes for general settings"
 169    if lbSave(1) = FALSE then PaperOrientation.Check else PaperOrientation.UnCheck
 170    if lbSave(2) = FALSE then PaperSize.Check else PaperSize.UnCheck
 171
 172 '///close options-dialog with OK
 173    Kontext "ExtrasOptionenDlg"
 174    ExtrasOptionenDlg.OK
 175    Sleep (3)
 176
 177 '///exit/restart StarOffice
 178  printlog " - exit/restart StarOffice"
 179    ExitRestartTheOffice
 180
 181 '///open options 'StarOffice' / 'Print'
 182  printlog " - check invertation/changes"
 183    ToolsOptions
 184    hToolsOptions ( "StarOffice", "Print" )
 185
 186 '///check invertation/changes
 187 '///- check for 'printer'
 188  printlog "    - check for 'printer'"
 189   Printer.Check
 190   Sleep (2)
 191    if ReduceTransparency.IsChecked = lbSavePrinter (1) then Warnlog "Reduce transparency => changes not saved! => BugID 87446"
 192    if ReduceTransparency.IsChecked then
 193       if NoTransparency.IsChecked <> TRUE              then Warnlog "No transparency => changes not saved!"
 194    else
 195       if Transparency.IsChecked = lbSave(2)            then Warnlog "Transparency => changes not saved!"
 196    end if
 197
 198
 199    if ReduceGradients.IsChecked = lbSavePrinter (4)    then Warnlog "ReduceGradients => changes not saved!"
 200    if ReduceGradients.IsChecked then
 201       if IntermediateColor.IsChecked <> TRUE           then Warnlog "Intermediate color => changes not saved!"
 202    end if
 203
 204    if ReduceBitmaps.IsChecked = lbSavePrinter (7)      then Warnlog "Reduce bitmaps => changes not saved!"
 205    if ReduceBitmaps.IsChecked then
 206       if Resolution.IsChecked <> TRUE then
 207          Warnlog "Resolution => changes not saved!"
 208       else
 209          if DPI.GetSelIndex <> 1                       then Warnlog "DPI => changes not saved!"
 210       end if
 211       if IncludeTransparentObjects.IsChecked = lbSavePrinter (11) then Warnlog "Include Transparent Objects => changes not saved!"
 212    end if
 213
 214    if ConvertColorsToGrayscale.IsChecked = lbSavePrinter (12) then Warnlog "Convert Colors To Grayscale => changes not saved!"
 215
 216 '///- check for 'print to file'
 217  printlog "    - check for 'print to file'"
 218   PrintToFile.Check
 219   Sleep (2)
 220    if ReduceTransparency.IsChecked = lbSaveFile (1)    then Warnlog "Reduce transparency => changes not saved!"
 221    if ReduceTransparency.IsChecked then
 222       if Automatically.IsChecked  <> TRUE              then Warnlog "Automatically => changes not saved!"
 223    end if
 224
 225    if ReduceGradients.IsChecked = lbSaveFile (4)       then Warnlog "Reduce gradients => changes not saved!"
 226    if ReduceGradients.IsChecked then
 227       if GradientStripes.IsChecked <> TRUE             then Warnlog "GradientStripes => changes not saved!"
 228       if GradientStripes.IsChecked then
 229          if Stripes.GetText <> "30"                    then Warnlog "Stripes => changes not saved!"
 230       end if
 231    end if
 232
 233    if ReduceBitmaps.IsChecked = lbSaveFile (7)         then Warnlog "Reduce bitmaps => changes not saved!"
 234
 235    if ReduceBitmaps.IsChecked then
 236       if GoodPrintQuality.IsChecked <> TRUE            then Warnlog "Good print quality => changes not saved!"
 237       if IncludeTransparentObjects.IsChecked = lbSaveFile (11) then Warnlog "Include transparent objects = changes not saved!"
 238    end if
 239
 240    if ConvertColorsToGrayscale.IsChecked = lbSaveFile (12) then warnlog "Convert colors to grayscale => changes not saved!"
 241
 242 '///check for general settings
 243  printlog "    - check for general settings"
 244    if PaperOrientation.IsChecked = lbSave(1)           then warnlog "Paper orientation => changes not saved! #i29960"
 245    if PaperSize.IsChecked        = lbSave(2)           then Warnlog "Paper size => changes not saved! #i29960"
 246
 247 '///2. changes
 248 '///- changes for 'printer'
 249  printlog " - 2. changes"
 250  printlog "    - 'printer'"
 251   Printer.Check
 252   Sleep (2)
 253    ReduceTransparency.UnCheck
 254    ReduceGradients.Check
 255     GradientStripes.Check
 256     Stripes.SetText "120"
 257    ReduceBitmaps.Check
 258     GoodPrintQuality.Check
 259     IncludeTransparentObjects.Check
 260    ConvertColorsToGrayscale.UnCheck
 261
 262 '///- changes for 'print to file'
 263  printlog "    - 'print to file'"
 264   PrintToFile.Check
 265    ReduceTransparency.Check
 266     NoTransparency.Check
 267    ReduceGradients.Uncheck
 268    ReduceBitmaps.UnCheck
 269    ConvertColorsToGrayscale.Check
 270
 271 '///- changes for general settings
 272  printlog "    - general settings"
 273    PaperOrientation.UnCheck
 274    PaperSize.Check
 275
 276 '///close the options-dialog with OK
 277    Kontext "ExtrasOptionenDlg"
 278    ExtrasOptionenDlg.OK
 279    Sleep (3)
 280
 281 '///open options 'StarOffice' / 'Print'
 282 '///check 2. changes
 283  printlog " - check 2. changes"
 284    ToolsOptions
 285    hToolsOptions ( "StarOffice", "Print" )
 286
 287 '///- check for 'printer'
 288  printlog "    - check for 'printer'"
 289   Printer.Check
 290   Sleep (2)
 291    if ReduceTransparency.IsChecked <> FALSE then Warnlog "Reduce transparency => changes not saved!"
 292    if ReduceGradients.IsChecked    <> TRUE  then
 293       Warnlog "ReduceGradients => changes not saved!"
 294    else
 295       if GradientStripes.IsChecked <> TRUE  then
 296          Warnlog "GradientStripes => changes not saved!"
 297       else
 298          if Stripes.GetText <> "120"        then Warnlog "Stripes => changes not saved!"
 299       end if
 300    end if
 301    if ReduceBitmaps.IsChecked <> TRUE then
 302       Warnlog "Reduce bitmaps => changes not saved!"
 303    else
 304       if GoodPrintQuality.IsChecked <> TRUE          then Warnlog "Good print quality => changes not saved!"
 305       if IncludeTransparentObjects.IsChecked <> TRUE then Warnlog "Include Transparent Objects => changes not saved!"
 306    end if
 307    if ConvertColorsToGrayscale.IsChecked <> FALSE    then Warnlog "Convert Colors To Grayscale => changes not saved!"
 308
 309 '///- check 'print to file'
 310  printlog "    - check 'print to file'"
 311   PrintToFile.Check
 312   Sleep (2)
 313    if ReduceTransparency.IsChecked <> TRUE then
 314       Warnlog "Reduce transparency => changes not saved!"
 315    else
 316       if NoTransparency.IsChecked <> TRUE then Warnlog "No transpanency => changes not saved!"
 317    end if
 318    if ReduceGradients.IsChecked <> FALSE then Warnlog "Reduce gradients => changes not saved!"
 319    if ReduceBitmaps.IsChecked <> FALSE then Warnlog "Reduce bitmaps => changes not saved!"
 320    if ConvertColorsToGrayscale.IsChecked <> TRUE then Warnlog "Convert colors to grayscale => changes not saved!"
 321
 322 '///- check for general settings
 323  printlog "    - check general settings"
 324    if PaperOrientation.IsChecked <> FALSE then warnlog "Paper orientation => changes not saved!"
 325    if PaperSize.IsChecked        <> TRUE  then Warnlog "Paper size => changes not saved! #i29960"
 326
 327 '///reset to saved settings
 328  printlog " - reset to saved settings"
 329  printlog "    - 'printer'"
 330   Printer.Check
 331   Sleep (2)
 332    ReduceTransparency.Check
 333    if lbSavePrinter (2)  = TRUE then Automatically.Check
 334    if lbSavePrinter (3)  = TRUE then NoTransparency.Check
 335    ReduceTransparency.UnCheck
 336    if lbSave(3)          = TRUE then Transparency.Check       else Transparency.Uncheck
 337    if lbSavePrinter (1)  = TRUE then ReduceTransparency.check else ReduceTransparency.Uncheck
 338
 339    ReduceGradients.Check
 340    GradientStripes.Check
 341    Stripes.SetText lsSavePrinter (1)
 342    if lbSavePrinter (5)  = TRUE then GradientStripes.Check
 343    if lbSavePrinter (6)  = TRUE then IntermediateColor.Check
 344    if lbSavePrinter (4)  = TRUE then ReduceGradients.Check else ReduceGradients.UnCheck
 345    if lbSavePrinter (4)  = TRUE then ReduceGradients.Check else ReduceGradients.UnCheck
 346
 347    ReduceBitmaps.Check
 348    Resolution.Check
 349    DPI.Select lsSavePrinter (2)
 350    if lbSavePrinter (8)  = TRUE then GoodPrintQuality.Check
 351    if lbSavePrinter (9)  = TRUE then NormalPrintQuality.Check
 352    if lbSavePrinter (10) = TRUE then Resolution.Check
 353    if lbSavePrinter (11) = TRUE then IncludeTransparentObjects.Check else IncludeTransparentObjects.UnCheck
 354    if lbSavePrinter (7)  = TRUE then ReduceBitmaps.Check else ReduceBitmaps.UnCheck
 355
 356    if lbSavePrinter (12) = TRUE then ConvertColorsToGrayscale.Check else ConvertColorsToGrayscale.UnCheck
 357
 358  printlog "    - 'print to file'"
 359   PrintToFile.Check
 360   Sleep (2)
 361    ReduceTransparency.Check
 362    if lbSaveFile (2)  = TRUE then Automatically.Check
 363    if lbSaveFile (3)  = TRUE then NoTransparency.Check
 364    if lbSaveFile (1)  = TRUE then ReduceTransparency.Check else ReduceTransparency.UnCheck
 365
 366    ReduceGradients.Check
 367    GradientStripes.Check
 368    Stripes.SetText lsSaveFile (1)
 369    if lbSaveFile (5)  = TRUE then GradientStripes.Check
 370    if lbSaveFile (6)  = TRUE then IntermediateColor.Check
 371    if lbSaveFile (4)  = TRUE then ReduceGradients.Check else ReduceGradients.UnCheck
 372
 373    ReduceBitmaps.Check
 374    Resolution.Check
 375    DPI.Select lsSaveFile (2)
 376    if lbSaveFile (8)  = TRUE then GoodPrintQuality.Check
 377    if lbSaveFile (9)  = TRUE then NormalPrintQuality.Check
 378    if lbSaveFile (10) = TRUE then Resolution.Check
 379    if lbSaveFile (11) = TRUE then IncludeTransparentObjects.Check else IncludeTransparentObjects.UnCheck
 380    if lbSaveFile (7)  = TRUE then ReduceBitmaps.Check else ReduceBitmaps.Uncheck
 381
 382    if lbSaveFile (12) = TRUE then ConvertColorsToGrayscale.Check else ConvertColorsToGrayscale.UnCheck
 383
 384  printlog "    - general settings"
 385    if lbSave(1) = TRUE then PaperOrientation.check else PaperOrientation.Uncheck
 386    if lbSave(2) = TRUE then PaperSize.Check else PaperSize.UnCheck
 387
 388 '///close options-dialog with OK
 389    Kontext "ExtrasOptionenDlg"
 390    ExtrasOptionenDlg.OK
 391    Sleep (3)
 392
 393 '///open options 'StarOffice' / 'Print'
 394 '///check changes
 395  printlog " - check changes"
 396    ToolsOptions
 397    hToolsOptions ( "StarOffice", "Print" )
 398
 399 '///- check for 'printer'
 400  printlog "    - check for 'printer'"
 401   Printer.Check
 402   Sleep (2)
 403    if ReduceTransparency.IsChecked        <> lbSavePrinter (1)  then Warnlog "Reduce transparency => changes not saved!"
 404    ReduceTransparency.Check
 405    if Automatically.IsChecked             <> lbSavePrinter (2)  then Warnlog "Automatically => changes not saved!"
 406    if NoTransparency.IsChecked            <> lbSavePrinter (3)  then Warnlog "No transparency => changes not saved!"
 407    ReduceTransparency.UnCheck
 408    if Transparency.IsChecked              <> lbSave(3)          then Warnlog "Transparency => changes not saved!"
 409    if lbSavePrinter (1) = TRUE then ReduceTransparency.Check else ReduceTransparency.UnCheck
 410
 411    if ReduceGradients.IsChecked           <> lbSavePrinter (4) then Warnlog "Reduce Gradients => changes not saved!"
 412    ReduceGradients.Check
 413    if GradientStripes.IsChecked           <> lbSavePrinter (5)  then Warnlog "GradientStripes => changes not saved!"
 414    if IntermediateColor.IsChecked         <> lbSavePrinter (6)  then Warnlog "Intermediate color => changes not saved!"
 415    GradientStripes.Check
 416    if Stripes.GetText <> lsSavePrinter (1)                      then Warnlog "Stripes => changes not saved!"
 417    if lbSavePrinter (5) = TRUE then GradientStripes.Check else IntermediateColor.Check
 418    if lbSavePrinter (4)  = TRUE then ReduceGradients.Check else ReduceGradients.UnCheck
 419
 420    if ReduceBitmaps.IsChecked <> lbSavePrinter (7) then Warnlog "Reduce Bitmaps => changes not saved!"
 421    ReduceBitmaps.Check
 422    if GoodPrintQuality.IsChecked          <> lbSavePrinter (8)  then Warnlog "Good print quality => changes not saved!"
 423    if NormalPrintQuality.IsChecked        <> lbSavePrinter (9)  then Warnlog "Normal print quality => changes not saved!"
 424    if Resolution.IsChecked                <> lbSavePrinter (10) then Warnlog "Resolution => changes not saved!"
 425    if IncludeTransparentObjects.IsChecked <> lbSavePrinter (11) then Warnlog "Include transparent objects => changes not saved!"
 426    Resolution.Check
 427    if DPI.GetSelText <> lsSavePrinter (2)                       then Warnlog "DPI => changes not saved!"
 428    if lbSavePrinter (8)  = TRUE then GoodPrintQuality.Check
 429    if lbSavePrinter (9)  = TRUE then NormalPrintQuality.Check
 430    if lbSavePrinter (10) = TRUE then Resolution.Check
 431    if lbSavePrinter (7)  = TRUE then ReduceBitmaps.Check else ReduceBitmaps.Uncheck
 432
 433    if ConvertColorsToGrayscale.IsChecked  <> lbSavePrinter (12) then Warnlog "Convert colors to grayscale => changes not saved!"
 434
 435 '///- check for 'print to file'
 436  printlog "    - 'print to file'"
 437   PrintToFile.Check
 438   Sleep (2)
 439    if ReduceTransparency.IsChecked        <> lbSaveFile (1)  then Warnlog "Reduce transparency => changes not saved!"
 440    ReduceTransparency.Check
 441    if Automatically.IsChecked             <> lbSaveFile (2)  then Warnlog "Automatically => changes not saved!"
 442    if NoTransparency.IsChecked            <> lbSaveFile (3)  then Warnlog "No transparency => changes not saved!"
 443    if lbSaveFile (1) = TRUE then ReduceTransparency.Check else ReduceTransparency.UnCheck
 444
 445    if ReduceGradients.IsChecked           <> lbSaveFile (4) then Warnlog "Reduce Gradients => changes not saved!"
 446    ReduceGradients.Check
 447    if GradientStripes.IsChecked           <> lbSaveFile (5)  then Warnlog "GradientStripes => changes not saved!"
 448    if IntermediateColor.IsChecked         <> lbSaveFile (6)  then Warnlog "Intermediate color => changes not saved!"
 449    GradientStripes.Check
 450    if Stripes.GetText <> lsSaveFile (1)                      then Warnlog "Stripes => changes not saved!"
 451    if lbSaveFile (5) = TRUE then GradientStripes.Check else IntermediateColor.Check
 452    if lbSaveFile (4)  = TRUE then ReduceGradients.Check else ReduceGradients.UnCheck
 453
 454    if ReduceBitmaps.IsChecked <> lbSaveFile (7) then Warnlog "Reduce Bitmaps => changes not saved!"
 455    ReduceBitmaps.Check
 456    if GoodPrintQuality.IsChecked          <> lbSaveFile (8)  then Warnlog "Good print quality => changes not saved!"
 457    if NormalPrintQuality.IsChecked        <> lbSaveFile (9)  then Warnlog "Normal print quality => changes not saved!"
 458    if Resolution.IsChecked                <> lbSaveFile (10) then Warnlog "Resolution => changes not saved!"
 459    if IncludeTransparentObjects.IsChecked <> lbSaveFile (11) then Warnlog "Include transparent objects => changes not saved!"
 460    Resolution.Check
 461    if DPI.GetSelText <> lsSavePrinter (2)                       then Warnlog "DPI => changes not saved!"
 462    if lbSaveFile (8)  = TRUE then GoodPrintQuality.Check
 463    if lbSaveFile (9)  = TRUE then NormalPrintQuality.Check
 464    if lbSaveFile (10) = TRUE then Resolution.Check
 465    if lbSaveFile (7)  = TRUE then ReduceBitmaps.Check else ReduceBitmaps.Uncheck
 466
 467    if ConvertColorsToGrayscale.IsChecked  <> lbSaveFile (12) then Warnlog "Convert colors to grayscale => changes not saved!"
 468
 469 '///- check for general settings
 470  printlog "    - general settings"
 471    if PaperOrientation.Ischecked          <> lbSave(1)       then Warnlog "Paper orientation => changes not saved!"
 472    if PaperSize.IsChecked                 <> lbSave(2)       then Warnlog "Paper size. => changes not saved!"
 473
 474 '///close options-dialog with OK
 475    Kontext "ExtrasOptionenDlg"
 476    ExtrasOptionenDlg.OK
 477    Sleep (3)
 478 endcase
 479