Hi guys,
Need help here.
I try to print certain data with selected cell. It works to preview the print. However, it showed cell by cell and the user need to click next page to view another cell. Here is the code I try to do.
Public Sub Print1_click()
Dim Rng1 As Range
Set Rng1 = Range("K10:K10")
'.oWS = ActiveCell.Range("$L$10:$L$10")
'Application.Dialogs(xlDialogPrint).Show
On Error Resume Next
With Application
.DisplayFullScreen = False
.CommandBars("Worksheet Menu Bar").Enabled = True
End With
'ActiveSheet.Range("$A$10:$L$500").AutoFilter Field:=12
If Rng1.FilterMode.Columns = True Then
Range("K10").Select
ActiveSheet.Range("$A$10:$L$500").AutoFilter Field:=12, Criteria1:="<>"
Range("A8:A60,B8:B60,C8:C60,D8:D60,E8:E60,F8:F60,G8:G60,H8:H60,I8:I60,K8:K60").Select
Range("A8:A60,B8:B60,C8:C60,D8:D60,E8:E60,F8:F60,G8:G60,H8:H60,I8:I60,K8:K60").Activate
' ActiveWindow.SmallScroll Down:=-126
Selection.PrintOut Copies:=1, From:=1, To:=32766, Copies:=1, Preview:=True
ElseIf Rng1.FilterMode.Columns = False Then
Range("K10").Select
ActiveSheet.Range("$A$10:$L$500").AutoFilter Field:=13, Criteria1:="<>"
Range("A8:I60").Select
Selection.PrintOut From:=1, To:=32766, Copies:=1, Preview:=True
End If
End Sub
Print preview image showed here:
print 1.jpg
print 2.jpg
Thanks!
Bookmarks