Print in pdf format

[muhammad susanto]

hi all..

i want this macro below can print or save in pdf format at multiple based record selected..
this macro code :

[COLOR=#333333]Sub PrintPhoto()[/COLOR]<code style="margin: 0px; padding: 0px; font-style: inherit; font-weight: inherit;">Dim fromRecord, toRecord, answer, i As Integer
On Error Resume Next

fromRecord = InputBox("From record", "FROM", 1)
    If fromRecord = 0 Or Not IsNumeric(fromRecord) Then Exit Sub
toRecord = InputBox("To record", "TO", fromRecord)
    If toRecord < fromRecord Or Not IsNumeric(fromRecord) Then Exit Sub
answer = MsgBox("printing records" & fromRecord & " to " & toRecord, vbOKCancel, "PRINT")
    If answer <> vbOK Then Exit Sub
    
For i = fromRecord To toRecord
    [AM8] = i
    With ActiveSheet
        .PrintOut
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
Next
 </code>[COLOR=#333333]End Sub[/COLOR]

here this attachment file
https://app.box.com/s/19nsaj2e6ka1wxwnoiyfu0u6k1d9y0yr

any body would help me , greatly appreciated...

m.susanto

 

[PhilS2520]

Hi muhammad,

You can save a workbook as a PDF (Portable Document Format), but you print any type of file regardless.

I do not understand what you are asking? Could you please add some more details to exactly what you need?

 

[muhammad susanto]

if i use pdf print i should order print per page can't excute multiple print
my expected result is how to excute at selected records from .?...to record .?...at once click. (based on my attach data)

 

[PhilS2520]

Hi muhammad,

Again I say your message lacks a lot of details to understand what you are trying to accomplish. We are all here ready to help. But we need information to be able to help you properly. If you do not give us enough information to make a mental picture we will NEVER be able to give you a good answer.

Plus I saluted you and said Hi, you did not reciprocate, what gives?

Again, give more details so that we can better assist you.

Now, what I understand is that you are trying to make PDF files, and print them, so you can use a Loop to make/print multiple times.

 

[muhammad susanto]

hi phils...

you're right..i want to print pdf format .please, check & run my attach.
my problem is i must one by one record to make pdf format..
i agree for your suggestion to use Loop but i don't have knowlagde about macro/vba..
would you like to help me?

 

[muhammad susanto]

i hope someone could help me...
i just wanna to print my excel as pdf format, based on certain record [file attachment]