Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: maxime martel
  
 quebec
 
 maxime martel
 To: Ken Blum
  Where is Ken Blum?
 Chicago
 Illinois - United States
 Ken Blum
 Tags
Subject: RE: Printing "duplicating" problem
Thread ID: 50398 Message ID: 51850 # Views: 1 # Ratings: 0
Version: Visual FoxPro 7 Category: Forms
Date: Friday, September 17, 2004 7:17:45 PM         
   


> > > > Hi there,
> > > >
> > > > I send a Screenshot picture of a video to the printer but that always print 11 page of the same picture. My report is built to print a full page picture.
> > > >
> > > > LOCAL lcNomRapport
> > > > LOCAL lcNomImage
> > > >
> > > > lcNomRapport = mem_RepExe + "analysef.frx"
> > > > lcNomImage = mem_RepAlbum + "dsc000cur.jpg"
> > > > mem_logo1 = lcNomImage
> > > >
> > > > * Vidange des fichiers images
> > > > clear resources
> > > >
> > > > * Faire un screenshot...
> > > > thisformset.frmCaptureReplay.oleCaptureReplay.VideoSnapImage(lcNomImage)
> > > >
> > > > IF FILE(lcNomImage)
> > > > * Imprimer directement
> > > > report form &lcNomRapport to printer noconsole
> > > > ENDIF
> > > >
> > > > * Supprimmer l'image temporaire
> > > > lcImageDel = lcNomImage
> > > > lcImageDelTmp = CHR(34) + lcImageDel + CHR(34)
> > > > IF FILE(lcImageDel)
> > > > DELETE FILE &lcImageDelTmp
> > > > ENDIF
> > > >
> > > > Max...
> > >
> > > The number of copies on the Printer Setup is probably 11.
> > >
> > > KTB
> >
> > No, i check this before and the number of copy was set to 1.
> >
> > Max...
> Before attempting this you should make a copy of your report file.
>
> Hack your report file & see if it's embedded into you report file...
>
>
> USE myreport.frx EXCL
> LOCATE FOR objtype = 1 AND objcode = 53
> BROWSE
> 

>
> Now look at the expr, tag, and tag2 fields and see if there is something about COPIES. I have a program that runs through all of my report files and clears these values. In VFP 8 you can select to not save these parameters.
>
> 
> * Program to clear REPORT Files (*.FRX) of printer settings...
> LOCAL fn
> 
> fn = SYS(2000,"*.FRX")
> IF ISBLANK(fn)
> 	MESSAGEBOX("No Report Files Found!")
> ENDIF
> CLEAR
> 
> DO WHILE !ISBLANK(fn)
> 	? fn
> 	USE(fn) EXCL
> 	LOCATE FOR objtype = 1 AND objcode = 53
> 	IF FOUND()
> 		REPLACE Tag WITH ""
> 		REPLACE Tag2 WITH ""
> 		IF "ORIENTATION=1" $ UPPER(Expr)
> 			REPLACE Expr WITH "ORIENTATION=1"
> 		ELSE
> 			REPLACE Expr WITH "ORIENTATION=0"
> 		ENDIF
> 		?? " Changed"
> 	ELSE
> 		?? " Object Field Not Found"
> 	ENDIF
> 	PACK
> 	REINDEX
> 	USE
> *	COMPILE REPORT (FN)	
> 	FN = SYS(2000,"*.FRX",1)
> ENDDO			
> 

>
> KTB

Thanks, but i found the problem... It was because i was not link on the good table.

Thanks again for your help it's appreciate.


Max...

ENTIRE THREAD

Printing "duplicating" problem Posted by maxime martel @ 9/1/2004 4:27:39 PM
RE: Printing "duplicating" problem Posted by Ken Blum @ 9/1/2004 4:56:43 PM
RE: Printing "duplicating" problem Posted by maxime martel @ 9/2/2004 2:47:09 PM
RE: Printing "duplicating" problem Posted by Ken Blum @ 9/2/2004 3:58:04 PM
RE: Printing "duplicating" problem Posted by maxime martel @ 9/17/2004 7:17:45 PM