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?

printing forms
 

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?

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?

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?

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?

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?

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?