Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Printing a form with object values and no table needed
Message
De
28/08/2003 12:28:14
 
 
À
28/08/2003 12:13:43
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00824145
Message ID:
00824257
Vues:
20
Glad you got it resolved! My daughter started school 3 weeks ago and is already waiting for summer. :o) Other than socializing, she is typical of most kids and would rather do nothing (for a couple of days anyway until she gets bored) than attend school. She does well though and is in accelerated classes again this year. That may have something to do with her not enjoying school as much. They really load up the homework and the teachers have very little patience for their students in those classes. Her bookbag weighs more than 45 lbs when she brings it home at night and she only weighs 78 lbs! When one little girl in my daughter's accelerated class asked the teacher to repeat something, the teacher informed her that if she wanted special attention she needed to attend a private school! Well, my daughter attended private school up until last year and she almost blurted out that that is exactly the truth. The attention and instruction is much better at private schools as a general rule as well as the teacher's qualifications. Luckily she did not say any such thing. If it were not for the fact that her private school only had 8 kids in each class (little opportunity for socialization in that environment) I think she would prefer the private school!


>>I do this by creating a temporary cursor before printing the report that has nothing but a space in a single field. I include the temporary cursor's field on the form which does not print because it is only a space.
>>
>>
>>PRIVATE myalias, myrecno
>>Myalias=""
>>Myrecno=0
>>Myalias=ALIAS()
>>IF !EMPTY(Myalias)
>>    Myrecno=recno()
>>ENDIF
>>SELE 0
>>CREATE CURSOR tmp (cblank c(1))
>>APPEND BLANK
>>REPLACE tmp.cblank WITH " "
>>GO TOP
>>REPORT FORM ... NEXT 1 NOCONSOLE TO PRINT
>>*or
>>REPORT FORM ... NEXT 1 PREVIEW
>>USE IN tmp
>>IF !EMPTY(Myalias)
>>    SELECT (Myalias)
>>    IF Myrecno>0
>>        GOTO Myrecno
>>    ENDIF
>>ENDIF
>>
>>
>>
>>>Before when I wanted to print a report to display the values of objects before they are written to a record, or just data entered on a screen with a preview, I would do a command like: report form FORMNAME record recno() preview. The reason is the preview would run through every record in the table, but if I did just the current recno() of whatever table was open at the time, it would print the value of my objects just once and since they didn't reference any values in the table, it didn't matter what table was open or what record number it was on. This works almost all the time, but sometimes in different forms it will print an extra page with just the header, etc. I was wondering if there was an easier way to print a report with just object values with a edit box with overflow at the end and have it only print just that (preview and print)?
>>>
>>>Kev
>
>
>__________________________________________________________________
>What's new Tracy?
>
>I tried it that way and got the same thing, so I looked around a little bit more and found that all I needed was to open up the objects on the report that stretched with overflow and under the Print When button, I checked No under Print Repeated Values.
>
>PRINT REPEATED VALUES DIALOG BOX:
>No
>Object will not print at all unless one or both of the following are checked: In first whole band of new page/column and When detail overflows to new page/column.
>
>Doing this eliminated it printing an extra page with just a header at times. I am going to leave my report commands the same (ex. report form FORMNAME record recno() preview) because I think it will give more efficiency then creating a new table and displaying a blank field on the form. Thanks for your input though hun.
>
>So did your little one start school yet?
.·*´¨)
.·`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"
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform