FoxPro forum FoxPro
Fox drangulije i druge sitnice
 
 FAQ - Često Postavljana PitanjaFAQ - Često Postavljana Pitanja   TražiTraži   Lista članovaLista članova   Korisničke grupeKorisničke grupe   Registruj seRegistruj se 
 ProfilProfil   Proveri privatne porukeProveri privatne poruke   PristupiPristupi 

Uvećanje prozora štampe

 
Napiši novu temu   Odgovori na poruku    FoxPro forum -> Obrasci i kontrole
Pogledaj prethodnu temu :: Pogledaj sledeću temu  
Autor Poruka
Fikri
Poručnik
Poručnik


Pridružio: 23 Maj 2008
Poruke: 207
PorukaPoslao: Sub Mar 13, 2010 9:44 pm    Naslov: Uvećanje prozora štampe Odgovoriti sa citatom
Kako uvećati prozor za štampu (preview)?
Kod mene je uvijek nekako na pola ekrana, što me strašno nervira...
Nazad na vrh
Pogledaj profil korisnika Pošalji privatnu poruku
VladimirR
Regrut
Regrut


Pridružio: 01 Feb 2007
Poruke: 13
PorukaPoslao: Ned Mar 14, 2010 8:33 am    Naslov: Odgovoriti sa citatom
Ne znam koju verziju VFP-a koristis.
Najlaksa opcija (radi i na starim verzijama).

Posalji:

Kod:
KEYBOARD "{Ctrl+F10}"
REPORT FORM myReport PREVIEW


ili

Kod:
KEYBOARD "{Ctrl+F10}" PLAIN CLEAR
REPORT FORM myReport PREVIEW



Moguce je i definisati poseban prozor u kome ce se print preview pojviti.

Kod:
=repwindow(.t.)
REPORT FORM myReport PREVIEW WINDOW repwindow TO PRINTER PROMPT
=repwindow(.f.)


FUNCTION repwindow
PARAMETERS tDefine
LOCAL nWidth, nHeight
IF tDefine
   nWidth = _SCREEN.WIDTH/FONTMETRIC(6,_SCREEN.FONTNAME,_SCREEN.FONTSIZE)
   nHeight = _SCREEN.HEIGHT/FONTMETRIC(1,_SCREEN.FONTNAME,_SCREEN.FONTSIZE)-2
   DEFINE WINDOW repwindow AT 0,0 SIZE nHeight,nWidth SYSTEM ZOOM ;
      CLOSE FLOAT TITLE "Report Preview" ;
      FONT _SCREEN.FONTNAME,_SCREEN.FONTSIZE NAME repwindow
ELSE
   RELEASE WINDOW repwindow
ENDIF




Ukoliko koristis "najnoviju" Very Happy verziju sa "report listener"-om.

Kod:
LOCAL oForm, wnd_name
LOCAL loRef as ReportListener
IF SET("ReportBehavior") == 80
   oForm             = CREATEOBJECT("Form")
   oForm.Caption     = "My Report"
   oForm.Name        = "PrintPreview"
   oForm.WindowState = 2   && Maximised
   oForm.Visible     = .t.
   wnd_name          = oForm.Name
   REPORT FORM (Ime reporta) NOCONSOLE TO PRINTER PROMPT PREVIEW WINDOW (wnd_name)
ELSE
   EXTERNAL CLASS frxPreview.vcx
   oForm = NEWOBJECT([frxpreviewForm],[frxPreview],_REPORTPREVIEW)
   loRef = NULL
   DO (_REPORTOUTPUT) WITH 1, loRef
   oForm.WindowState      = 2
   loRef.PreviewContainer = oForm
   REPORT FORM (Ime reporta) NOCONSOLE TO PRINTER PROMPT PREVIEW OBJECT loRef
ENDIF
Nazad na vrh
Pogledaj profil korisnika Pošalji privatnu poruku
slobodan
Poručnik
Poručnik


Pridružio: 01 Nov 2006
Poruke: 340
Lokacija: Bečej
PorukaPoslao: Sub Mar 20, 2010 6:33 pm    Naslov: Odgovoriti sa citatom
VladimirR ::

Kod:
KEYBOARD "{Ctrl+F10}"
REPORT FORM myReport PREVIEW



Ovo ne radi uvek, jer {Ctrl+F10} ne radi isključivo Maximize, već svaki naredni poziv prebacuje iz stanja Maximized u Restored i obratno, pa se dešava da se prilikom prvobitnog prikaza preview prebaci u Restored stanje upravo zbog tog Ctrl+F10.
Rešenje sa zasebnim namenskim prozorom je mnogo pouzdanije.
_________________
Postoji 10 vrsta ljudi: oni koji razumeju binarne brojeve i oni drugi.
Nazad na vrh
Pogledaj profil korisnika Pošalji privatnu poruku Pošalji email MSN Messenger
Prikaži poruke iz poslednjih:   
Napiši novu temu   Odgovori na poruku    FoxPro forum -> Obrasci i kontrole Sva vremena su GMT + 1 sat
Strana 1 od 1

 
Skoči na:  
Ne možete pisati nove teme u ovom forumu
Ne možete odgovarati na teme u ovom forumu
Ne možete menjati vaše poruke u ovom forumu
Ne možete brisati vaše poruke u ovom forumu
Ne možete glasati u ovom forumu


Powered by phpBB © 2001, 2005 phpBB Group
Prevod by CyberCom