I am getting vertical black lines in my final output pdf file and can't seem to figure out where they are coming from.
Attached is an example. The line in the center is not supposed to be there.
Capture.JPG
The code I am using to write to .pdf is:
Dim Name As String
Dim WhereTo As String
Dim sFileName As String
Dim manu As String
Dim D As String
Dim ws2 As Worksheet
Dim ws As Worksheet
Set ws2 = Sheets("Quote")
For Each ws In Worksheets
ws.PageSetup.PaperSize = xlPaperLetter
Next ws
'first 2 letters of manufacturer and date
manu = Sheets("quote").Range("g12")
manu = Left(manu, 2)
D = Format(Date, "mm-dd-yy")
WhereTo = "C:\Users\Me\Documents\WholesaleCabinets.US\Orders\To Order\"
Sheets("Order Form").Activate
Range("B11").Activate
Name = ActiveCell.Value
sFileName = WhereTo & Name & " " & manu & " " & D & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
sFileName
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
With Application
.Screenupdating = False
.EnableEvents = False
End With
End Sub
I don't have any vertical lines in the area that is showing the lines or hidden cells. This is happening is another part of the document as well, about 2/3 of the way down.
Any suggestions?
Thanks
Bookmarks