Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
More Print Preview stuff
Message
De
06/12/2006 17:03:14
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Titre:
More Print Preview stuff
Versions des environnements
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Divers
Thread ID:
01175420
Message ID:
01175420
Vues:
54
Hi Everyone,

Trying to tame and improve print preview under VFP9. Searched msgs here to get some ideas. Following code works well but:

1) the preview window is a 2nd window inside the window specified (looks wierd)
2) you cannot close the preview window clicking on the "X" on the outermost window
IF .ilPreviewReportFirst

   STORE CREATEOBJECT("form") TO loPreviewWindow

   WITH loPreviewWindow
      .Width = 835
      .Height = 875
      .Caption = "Print Preview"
      .Show()
   ENDWITH

   STORE " PREVIEW IN WINDOW (loPreviewWindow.Name)" TO lcPreviewClause

   * this maximizes inner window
   KEYBOARD "{CTRL+F10}" PLAIN

ENDIF

REPORT FORM (.icTempFrxFileName) TO PRINTER &lcPrintDialogClause ;
&lcPreviewClause NOCONSOLE OBJECT loReportListener
Thanks,

Albert
Répondre
Fil
Voir

Click here to load this message in the networking platform