I have this excel data base file where I have built a form on another tab that automatically fills in when I put in a number (it's the record number). The number represents a row of information. So whatever number I put in, it fills out the form and I can print that form. So then I built a VBA code that would put in all the numbers in sequence and prints outs all the pages with one command button.
What I need now is instead of printing the forms, I would like them to be PDFs sent to a particular folder, then I can look at each one individually. I would also like to make them all PDFs and combine them into one PDF and just print the one document out. The hard part is making them all PDFs.
Here is the formula I have to print all of the records.
Sub PrintAll()
RowCount = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row - 1
Worksheets("Report").Select
For i = 1 To RowCount
Range("B1").Value = i
ActiveSheet.PrintOut Copies:=1
Next i
End Sub
I also can print just one record. I have it twice for different worksheets below:
Sub PrintOneDropCard()
' PrintOneDropCard Macro
'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
Sub PrintOneMSEL()
' PrintOneMSEL Macro
'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
Can someone help me turn them in to PDFs. I tried doing it but it would only make one PDF and kept over writing each PDF and I ended up with only the last form and one PDF. I just can't figure it out. I can send the file to anyone who would love to try and figure it out.
I"m not very good at coding.
Thanks
James
What I need now is instead of printing the forms, I would like them to be PDFs sent to a particular folder, then I can look at each one individually. I would also like to make them all PDFs and combine them into one PDF and just print the one document out. The hard part is making them all PDFs.
Here is the formula I have to print all of the records.
Sub PrintAll()
RowCount = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row - 1
Worksheets("Report").Select
For i = 1 To RowCount
Range("B1").Value = i
ActiveSheet.PrintOut Copies:=1
Next i
End Sub
I also can print just one record. I have it twice for different worksheets below:
Sub PrintOneDropCard()
' PrintOneDropCard Macro
'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
Sub PrintOneMSEL()
' PrintOneMSEL Macro
'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
Can someone help me turn them in to PDFs. I tried doing it but it would only make one PDF and kept over writing each PDF and I ended up with only the last form and one PDF. I just can't figure it out. I can send the file to anyone who would love to try and figure it out.
I"m not very good at coding.
Thanks
James