| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.newusers
|
|||
|
|||
printing forms
Hi, i have this table in one sheet
Name Surname Adress Tel.No. E-mail Gender Paul Gaultier Baker st 9995 M John Smith Rose st. 5556 F And in another sheet I have couple of forms (application forms, questionnaires) Applc. form. No.1 Name: Surname: Adress: E-mail: Gender: My wish is, to have buttons (or functions) next to each name, that will print each form with data of this person put in right boxes of the forms. Name Surname Adress Tel.No. E-mail Gender Print Form Paul Gaultier Baker st 9995 M Print Form No.1 John Smith Rose st. 5556 F Print Form No.1 I can have the forms in word or excel format. Mailmerge doesn't solve my problem, because that I'll need to make many steps (open file, use filter, print it, ...). All I need is one button for each form next to each case. Is it possible? |
|
#3
Posted to microsoft.public.excel.newusers
|
|||
|
|||
|
printing forms
I have some little experience with macros, so I don't mind.
I'm sending you e-mail with the table (just a moment please, have to translate it in English) Thank you. Milos Muhammed Rafeek M pÃ*Å¡e: Hi do you want with macro or without macro? it is possible with macro or without. however do mail me with your file to "milos" wrote: Hi, i have this table in one sheet Name Surname Adress Tel.No. E-mail Gender Paul Gaultier Baker st 9995 M John Smith Rose st. 5556 F And in another sheet I have couple of forms (application forms, questionnaires) Applc. form. No.1 Name: Surname: Adress: E-mail: Gender: My wish is, to have buttons (or functions) next to each name, that will print each form with data of this person put in right boxes of the forms. Name Surname Adress Tel.No. E-mail Gender Print Form Paul Gaultier Baker st 9995 M Print Form No.1 John Smith Rose st. 5556 F Print Form No.1 I can have the forms in word or excel format. Mailmerge doesn't solve my problem, because that I'll need to make many steps (open file, use filter, print it, ...). All I need is one button for each form next to each case. Is it possible? |
|
#4
Posted to microsoft.public.excel.newusers
|
|||
|
|||
|
printing forms
hi
i have repliyed ur mail. here also u can find the macro which i used: donnot forget to put rate Sub PrintForm() Dim i As Long i = 5 Sheets("list").Select Do While Trim(Range("B" & i).Value) < "" Sheets("Form No.1").Range("B6").Value = UCase(Range("B" & i).Value) Sheets("Form No.1").Range("B7").Value = UCase(Range("C" & i).Value) Sheets("Form No.1").Range("B8").Value = UCase(Range("D" & i).Value) Sheets("Form No.1").Range("B9").Value = UCase(Range("E" & i).Value) Sheets("Form No.1").Range("B10").Value = UCase(Range("F" & i).Value) Sheets("Form No.1").Range("B11").Value = Range("G" & i).Value Sheets("Form No.1").Range("B12").Value = Range("H" & i).Value Sheets("Form No.1").Range("B14").Value = UCase(Range("I" & i).Value) Sheets("Form No.1").Range("B15").Value = Range("J" & i).Value i = i + 1 Sheets("Form No.1").PrintOut Sheets("Form No.1").Range("B6:B15").Value = "" Loop End Sub "milos" wrote: I have some little experience with macros, so I don't mind. I'm sending you e-mail with the table (just a moment please, have to translate it in English) Thank you. Milos Muhammed Rafeek M pÃ*Å¡e: Hi do you want with macro or without macro? it is possible with macro or without. however do mail me with your file to "milos" wrote: Hi, i have this table in one sheet Name Surname Adress Tel.No. E-mail Gender Paul Gaultier Baker st 9995 M John Smith Rose st. 5556 F And in another sheet I have couple of forms (application forms, questionnaires) Applc. form. No.1 Name: Surname: Adress: E-mail: Gender: My wish is, to have buttons (or functions) next to each name, that will print each form with data of this person put in right boxes of the forms. Name Surname Adress Tel.No. E-mail Gender Print Form Paul Gaultier Baker st 9995 M Print Form No.1 John Smith Rose st. 5556 F Print Form No.1 I can have the forms in word or excel format. Mailmerge doesn't solve my problem, because that I'll need to make many steps (open file, use filter, print it, ...). All I need is one button for each form next to each case. Is it possible? |
|
#5
Posted to microsoft.public.excel.newusers
|
|||
|
|||
|
printing forms
thanx a lot.
is it possible to make a macro that makes automatically buttons with this macro for all cases (f.e.1000 cases)? Milos Muhammed Rafeek M pÃ*Å¡e: hi i have repliyed ur mail. here also u can find the macro which i used: donnot forget to put rate Sub PrintForm() Dim i As Long i = 5 Sheets("list").Select Do While Trim(Range("B" & i).Value) < "" Sheets("Form No.1").Range("B6").Value = UCase(Range("B" & i).Value) Sheets("Form No.1").Range("B7").Value = UCase(Range("C" & i).Value) Sheets("Form No.1").Range("B8").Value = UCase(Range("D" & i).Value) Sheets("Form No.1").Range("B9").Value = UCase(Range("E" & i).Value) Sheets("Form No.1").Range("B10").Value = UCase(Range("F" & i).Value) Sheets("Form No.1").Range("B11").Value = Range("G" & i).Value Sheets("Form No.1").Range("B12").Value = Range("H" & i).Value Sheets("Form No.1").Range("B14").Value = UCase(Range("I" & i).Value) Sheets("Form No.1").Range("B15").Value = Range("J" & i).Value i = i + 1 Sheets("Form No.1").PrintOut Sheets("Form No.1").Range("B6:B15").Value = "" Loop End Sub "milos" wrote: I have some little experience with macros, so I don't mind. I'm sending you e-mail with the table (just a moment please, have to translate it in English) Thank you. Milos Muhammed Rafeek M pÃ*Å¡e: Hi do you want with macro or without macro? it is possible with macro or without. however do mail me with your file to "milos" wrote: Hi, i have this table in one sheet Name Surname Adress Tel.No. E-mail Gender Paul Gaultier Baker st 9995 M John Smith Rose st. 5556 F And in another sheet I have couple of forms (application forms, questionnaires) Applc. form. No.1 Name: Surname: Adress: E-mail: Gender: My wish is, to have buttons (or functions) next to each name, that will print each form with data of this person put in right boxes of the forms. Name Surname Adress Tel.No. E-mail Gender Print Form Paul Gaultier Baker st 9995 M Print Form No.1 John Smith Rose st. 5556 F Print Form No.1 I can have the forms in word or excel format. Mailmerge doesn't solve my problem, because that I'll need to make many steps (open file, use filter, print it, ...). All I need is one button for each form next to each case. Is it possible? |
|
#6
Posted to microsoft.public.excel.newusers
|
|||
|
|||
|
printing forms
yes that macro will search wether surname is blank or.
it will print till blank surname. (from 5th row to blank surname). if you want some other way, i will send you mail. "milos" wrote: thanx a lot. is it possible to make a macro that makes automatically buttons with this macro for all cases (f.e.1000 cases)? Milos Muhammed Rafeek M pÃ*Å¡e: hi i have repliyed ur mail. here also u can find the macro which i used: donnot forget to put rate Sub PrintForm() Dim i As Long i = 5 Sheets("list").Select Do While Trim(Range("B" & i).Value) < "" Sheets("Form No.1").Range("B6").Value = UCase(Range("B" & i).Value) Sheets("Form No.1").Range("B7").Value = UCase(Range("C" & i).Value) Sheets("Form No.1").Range("B8").Value = UCase(Range("D" & i).Value) Sheets("Form No.1").Range("B9").Value = UCase(Range("E" & i).Value) Sheets("Form No.1").Range("B10").Value = UCase(Range("F" & i).Value) Sheets("Form No.1").Range("B11").Value = Range("G" & i).Value Sheets("Form No.1").Range("B12").Value = Range("H" & i).Value Sheets("Form No.1").Range("B14").Value = UCase(Range("I" & i).Value) Sheets("Form No.1").Range("B15").Value = Range("J" & i).Value i = i + 1 Sheets("Form No.1").PrintOut Sheets("Form No.1").Range("B6:B15").Value = "" Loop End Sub "milos" wrote: I have some little experience with macros, so I don't mind. I'm sending you e-mail with the table (just a moment please, have to translate it in English) Thank you. Milos Muhammed Rafeek M pÃ*Å¡e: Hi do you want with macro or without macro? it is possible with macro or without. however do mail me with your file to "milos" wrote: Hi, i have this table in one sheet Name Surname Adress Tel.No. E-mail Gender Paul Gaultier Baker st 9995 M John Smith Rose st. 5556 F And in another sheet I have couple of forms (application forms, questionnaires) Applc. form. No.1 Name: Surname: Adress: E-mail: Gender: My wish is, to have buttons (or functions) next to each name, that will print each form with data of this person put in right boxes of the forms. Name Surname Adress Tel.No. E-mail Gender Print Form Paul Gaultier Baker st 9995 M Print Form No.1 John Smith Rose st. 5556 F Print Form No.1 I can have the forms in word or excel format. Mailmerge doesn't solve my problem, because that I'll need to make many steps (open file, use filter, print it, ...). All I need is one button for each form next to each case. Is it possible? |
|
#7
Posted to microsoft.public.excel.newusers
|
|||
|
|||
|
printing forms
Hi, is it possible to put in cells also data from another sheet?, for example
when I have another data in sheet "projekty". The script I§m sending doesn't work..... Sub PrintPZ() Dim i As Long Sheets("list").Select For i = ActiveCell.Row To ActiveCell.Row Sheets("PZ").Range("C13").Value = Range("C" & i).Value Sheets("PZ").Range("E32").Value = Sheets("projekty").Range("I" & i).Value Sheets("PZ").Range("D34").Value = Sheets("projekty").Range("G" & i).Value Sheets("PZ").Range("D38").Value = Range("Y" & i).Value Sheets("PZ").Range("F43").Value = Sheets("projekty").Range("M" & i).Value Sheets("PZ").Range("F49").Value = Range("V" & i).Value i = i + 1 Sheets("PZ").PrintOut Next i End Sub Thanx Milos Muhammed Rafeek M pÃ*Å¡e: yes that macro will search wether surname is blank or. it will print till blank surname. (from 5th row to blank surname). if you want some other way, i will send you mail. "milos" wrote: thanx a lot. is it possible to make a macro that makes automatically buttons with this macro for all cases (f.e.1000 cases)? Milos Muhammed Rafeek M pÃ*Å¡e: hi i have repliyed ur mail. here also u can find the macro which i used: donnot forget to put rate Sub PrintForm() Dim i As Long i = 5 Sheets("list").Select Do While Trim(Range("B" & i).Value) < "" Sheets("Form No.1").Range("B6").Value = UCase(Range("B" & i).Value) Sheets("Form No.1").Range("B7").Value = UCase(Range("C" & i).Value) Sheets("Form No.1").Range("B8").Value = UCase(Range("D" & i).Value) Sheets("Form No.1").Range("B9").Value = UCase(Range("E" & i).Value) Sheets("Form No.1").Range("B10").Value = UCase(Range("F" & i).Value) Sheets("Form No.1").Range("B11").Value = Range("G" & i).Value Sheets("Form No.1").Range("B12").Value = Range("H" & i).Value Sheets("Form No.1").Range("B14").Value = UCase(Range("I" & i).Value) Sheets("Form No.1").Range("B15").Value = Range("J" & i).Value i = i + 1 Sheets("Form No.1").PrintOut Sheets("Form No.1").Range("B6:B15").Value = "" Loop End Sub "milos" wrote: I have some little experience with macros, so I don't mind. I'm sending you e-mail with the table (just a moment please, have to translate it in English) Thank you. Milos Muhammed Rafeek M pÃ*Å¡e: Hi do you want with macro or without macro? it is possible with macro or without. however do mail me with your file to "milos" wrote: Hi, i have this table in one sheet Name Surname Adress Tel.No. E-mail Gender Paul Gaultier Baker st 9995 M John Smith Rose st. 5556 F And in another sheet I have couple of forms (application forms, questionnaires) Applc. form. No.1 Name: Surname: Adress: E-mail: Gender: My wish is, to have buttons (or functions) next to each name, that will print each form with data of this person put in right boxes of the forms. Name Surname Adress Tel.No. E-mail Gender Print Form Paul Gaultier Baker st 9995 M Print Form No.1 John Smith Rose st. 5556 F Print Form No.1 I can have the forms in word or excel format. Mailmerge doesn't solve my problem, because that I'll need to make many steps (open file, use filter, print it, ...). All I need is one button for each form next to each case. Is it possible? |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Component not correctly registered Error opening Forms in Excel | Excel Discussion (Misc queries) | |||
| Excel spreadsheets are not printing, but other forms are. | Excel Discussion (Misc queries) | |||
| how to display single database records into forms for printing | Excel Discussion (Misc queries) | |||
| Autonumber in Forms while printing | Excel Discussion (Misc queries) | |||
| problem printing to PDF | Excel Discussion (Misc queries) | |||
Linear Mode
