muhammad susanto
Well-known Member
- Joined
- Jan 8, 2013
- Messages
- 2,077
- Office Version
- 365
- 2021
- Platform
- Windows
hi all...
i have use that macro above after run macro the result not fully working..
i mean in page that contains picture not showing correctly..after change the new record the picture should be change too..
my problem in showing picture that correctly in when/after printing
any helps..thanks..
m.susanto
Code:
[COLOR=#333333]Sub PrintRecords()[/COLOR]<code style="margin: 0px; padding: 0px; font-style: inherit; font-weight: inherit; line-height: 12px;">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]
i have use that macro above after run macro the result not fully working..
i mean in page that contains picture not showing correctly..after change the new record the picture should be change too..
my problem in showing picture that correctly in when/after printing
any helps..thanks..
m.susanto
Last edited: