DOCUMENT:Q188887  09-AUG-1999  [foxpro]
TITLE   :HOWTO: How to Display Print Preview in a Top-Level Form
PRODUCT :Microsoft FoxPro
PROD/VER:WINDOWS:6.0
OPER/SYS:
KEYWORDS:kbnokeyword

======================================================================
-------------------------------------------------------------------------------
The information in this article applies to:

 - Microsoft Visual FoxPro for Windows, version 6.0 
-------------------------------------------------------------------------------

SUMMARY
=======

Visual FoxPro version 6.0 has added the IN WINDOW clause to make it easier to
display the Print Preview window in a top-level form.

MORE INFORMATION
================

In Visual FoxPro version 5.0, it is not possible to enable the Print Preview to
display in a top-level form. The Print Preview window is always displayed in the
Visual FoxPro desktop, which is not usually displayed with a top-level form.
Visual FoxPro 6.0 has changed this; you can now direct the Print Preview window
into an existing top-level form by including the IN WINDOW clause in the report
form command. The following code demonstrates how the IN WINDOW clause can work
with a top-level form:

Sample Code
-----------

      * Start of code example
      *
      public oMain
      oMain = CREATEOBJECT('main')  && open main form
      oMain.visible = .t.
      CREATE TABLE table_1 (field1 C(10))
      FOR lnI=1 TO 3
         INSERT INTO table_1 VALUES ('xx')
      ENDFOR

      CREATE REPORT report_1 FROM table_1

      **************************************************
      *-- Class:        main
      *-- ParentClass:  form
      *-- BaseClass:    form
      *
      DEFINE CLASS main AS form

        Top = 0
        Left = 0
        Height = 165
        Width = 220
        DoCreate = .T.
        Caption = "Main"
        Name = "main"
        opform = .F.

        ADD OBJECT command1 AS commandbutton WITH ;
          Top = 24, ;
          Left = 24, ;
          Height = 37, ;
          Width = 157, ;
          Caption = "Show Print Preview", ;
          Name = "Command1"

        ADD OBJECT command2 AS commandbutton WITH ;
          Top = 84, ;
          Left = 24, ;
          Height = 37, ;
          Width = 157, ;
          Caption = "Close", ;
          Name = "Command2"

        PROCEDURE command1.Click
          oPForm = CREATEOBJECT('printpreview')
          oPform.visible = .t.    && open printpreview form
      *******
      * This is the report form command that uses the IN WINDOW Clause.
      * Notice that it uses both WINDOW and IN WINDOW clauses. The WINDOW
      * clause tells the Print Preview window to take on the characteristics
      * of the window, while IN WINDOW tells in what window to display the
      * Print Preview window.
      *******
       REPORT FORM report_1 PREVIEW WINDOW printpreview IN WINDOW printpreview
       ENDPROC

       PROCEDURE command2.Click
         thisform.release
       ENDPROC

      ENDDEFINE
      *
      *-- EndDefine: main
      **************************************************

      DEFINE CLASS printpreview AS form

        ScaleMode = 3
          Top = 0
          Left = 0
          Height = 454
          Width = 641
          ShowWindow = 2
          DoCreate = .T.
          Caption = "Print Preview Window"
          Movable = .T.
          TitleBar = 0
          WindowState = 0
          SizeBox = .F.
          Name = "printpreview"

      ENDDEFINE

      *End of Sample code

REFERENCES
==========

(c) Microsoft Corporation 1998, All Rights Reserved. Contributions by David
Botzenhart, Microsoft Corporation

Additional query words: kbvfp600

======================================================================
Keywords          : kbnokeyword 
Technology        : kbVFPsearch kbAudDeveloper kbVFP600
Version           : WINDOWS:6.0
Issue type        : kbhowto

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS
PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND.  MICROSOFT DISCLAIMS
ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN NO
EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR
ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL,
CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF
MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.  SOME STATES DO NOT ALLOW THE EXCLUSION
OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES
SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 1999.