Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
LABEL FORM SAMPLE Where did it go?
Message
From
26/09/2002 13:43:40
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Title:
LABEL FORM SAMPLE Where did it go?
Miscellaneous
Thread ID:
00704843
Message ID:
00704843
Views:
54
I have code that runs in both FPD26 and VFP7 to print dot matrix labels. It works fine in FPD26; however, in VFP7 about 50% of the time VFP7 ignores the SAMPLE keyword in the label form command. Any ideas how to get it to see the SAMPLE command and recognize it? It's very strange. The label form was actually done in FPD26 and runs in both versions fine except for this one issue. If VFP7 is not supposed to recognize the SAMPLE keyword anylonger, then why does it recognize it some of the time and how else do you print sample labels for alignment on dot matrix printers?

Code:
		llgo=yesnocan('Print Samples First to align labels?')
		IF UPPER(ALLTRIM(llgo)) = "NO"		&& user selected NOT to print sample labels
			IF printset("PROFILE LABELS")

				#IF NOT 'VISUAL' $ UPPER(VERSION())
					??? opt
					??? av_stdprt
				#ENDIF

				*--TCH 09/26/2002 Per Glorrie's request removed sample prompt
				LABEL FORM (m.reportform) NOCONSOLE TO PRINTER

				#IF NOT 'VISUAL' $ UPPER(VERSION())
					??? resetopt
				#ENDIF
	
				DO prntrset
				WAIT CLEAR
				
			ENDIF	&& printset ok
		ELSE	&& print sample labels yesnocan
			IF UPPER(ALLTRIM(llgo)) = "YES"	&& print samples
				IF printset("PROFILE LABELS")

					#IF NOT 'VISUAL' $ UPPER(VERSION())
						??? opt
						??? av_stdprt
					#ENDIF

					* Original Code has sample prompt for aligning printer				
					LABEL FORM (m.reportform) SAMPLE NOCONSOLE TO PRINTER
	
					#IF NOT 'VISUAL' $ UPPER(VERSION())
						??? resetopt
					#ENDIF
		
					DO prntrset
					WAIT CLEAR
				
				ENDIF	&& printset ok
			ENDIF	&& does llgo = 'Yes'
		ENDIF	&& print samples, yes or no
.·*´¨)
.·`TCH
(..·*

010000110101001101101000011000010111001001110000010011110111001001000010011101010111001101110100
"When the debate is lost, slander becomes the tool of the loser." - Socrates
Vita contingit, Vive cum eo. (Life Happens, Live With it.)
"Life is not measured by the number of breaths we take, but by the moments that take our breath away." -- author unknown
"De omnibus dubitandum"
Next
Reply
Map
View

Click here to load this message in the networking platform