testautomation/graphics/optional/includes/global/g_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: g_print.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:40 $
  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 : wolfram.garten@sun.com
  35 '*
  36 '* short description :
  37 '*
  38 '**************************************************************************************
  39 ' #1 tFilePrint
  40 '\*************************************************************************************
  41
  42 testcase tFilePrint
  43     Call hNewDocument
  44
  45     printlog "Inserting testtext."
  46     hTextrahmenErstellen ("This is an automated print test with testtool for GRAPHICS ",90,90,80,10)
  47     hTextrahmenErstellen ("Version    : "+ gVersionsnummer + " / " + gLanguage,80,90,70,10)
  48     hTextrahmenErstellen ("Date / Time : "+  Date + " / " + Time,70,90,60,10)
  49     hTextrahmenErstellen ("Machine / User: " + gPCName + "   " + gUser,60,90,50,10)
  50
  51     printlog "Opening print Dialog."
  52     FilePrint
  53     kontext
  54     if active.exists(2) then
  55         active.ok
  56         qaerrorlog "There is no printer available - please install one on your system!"
  57     endif
  58     sleep 2
  59     Kontext "DruckenDlg"
  60
  61
  62     ' Not yet active since this feature is not build into the master: i85355
  63     '   printlog "Checking options for impress..."
  64     '    if (gApplication = "IMPRESS") then
  65     '        if PrintContent.GetSelIndex <> 1 then
  66     '            warnlog "Not first entry selected!"
  67     '       else
  68     '            printlog " First entry selected."
  69     '        endif
  70     '
  71     '        if PrintContent.GetItemCount <> 4 then
  72     '            warnlog "Entry-number of PrintContent listbox is wrong!"
  73     '        else
  74     '            printlog "Entry-number of PrintContent listbox is 4."
  75     '        endif
  76     '
  77     '        PrintContent.Select 2
  78     '        if SlidesPerPage.IsEnabled then
  79     '            printlog "SlidesPerPage active."
  80     '        else
  81     '            warnlog "SlidesPerPage did not get active!"
  82     '        endif
  83     '
  84     '        VerticalOrder.Check
  85     '        printlog "Vertical checked."
  86     '        HorizontalOrder.Check
  87     '        printlog "Horizontal checked again."
  88     '
  89     '    else
  90     '        printlog "This is not impress, so no further print content testing."
  91     '    endif
  92
  93     printlog "Opening Options dialog."
  94     Zusaetze.Click
  95     sleep 1
  96     Kontext "DruckerZusaetzeDraw"
  97
  98     printlog "Checking brochure printing."
  99     if Prospekt.IsChecked then
 100         warnlog "Somebody forgot to uncheck the prospect printing!"
 101         Standard.Check
 102     else
 103         printlog "Brochure printing is checked."
 104     endif
 105
 106
 107     Seitenname.Check
 108     Datum.Check
 109     Zeit.Check
 110     AusgeblendeteSeiten.Check
 111     SeitengroesseAnpassen.Check
 112     AusDruckereinstellung.Check
 113
 114     DruckerZusaetzeDraw.OK
 115     Kontext "DruckenDlg"
 116     Zusaetze.Click
 117     sleep 2
 118     Kontext "DruckerZusaetzeDraw"
 119     if NOT Seitenname.IsChecked Then
 120         warnlog "  - Page name not checked"
 121     else
 122         printlog "Page name checked."
 123     endif
 124
 125     if NOT Datum.IsChecked Then
 126         warnlog "  - Date not checked"
 127     else
 128         printlog "Date is checked."
 129     endif
 130
 131     if NOT Zeit.IsChecked Then
 132         warnlog "  - Time not checked"
 133     else
 134         printlog "Time is checked."
 135     endif
 136
 137     if NOT AusgeblendeteSeiten.IsChecked Then
 138         warnlog "  - Hidden pages not checked"
 139     else
 140         printlog "Hidden pages checked."
 141     endif
 142
 143     if NOT SeitengroesseAnpassen.IsChecked Then
 144         warnlog "  - Fit to page not checked"
 145     else
 146         printlog "Fit to page checked."
 147     endif
 148
 149     if NOT AusDruckereinstellung.IsChecked Then
 150         warnlog "  - Paper tray from printer settings not checked"
 151     else
 152         printlog "Paper tray checked."
 153     endif
 154
 155     AusDruckereinstellung.UnCheck
 156     Standard.Check
 157     DruckerZusaetzeDraw.OK
 158     Kontext "DruckenDlg"
 159     DruckenDlg.Cancel
 160     Sleep 5
 161
 162     Call hCloseDocument
 163 endcase
 164