RawlinsCross
Active Member
- Joined
- Sep 9, 2016
- Messages
- 437
So as the title says, this is all about radio buttons on a worksheet being ridiculously blurry.
So I've got a form on an excel worksheet - it's narrow and long and a requirement is to pdf this form out to many people. So with a bit of trial and error, I decided on 4.5 cm x 20 using the "Microsoft Print to PDF" printer. That worked very well but I had to set up that custom size on my own computer. Now say 1000 computers need the same form on their computers and they need to print the form to PDF as well. Well, I couldn't go to 1000 computers and set up this custom page. So we tried to do it through the printer driver but setting up a new page size and have all 1000 computers point to it. This is not going well at all and the radio buttons are almost unreadable.
I'm using the .ExportAsFixedFormat class to perform the PDF conversion. I wondered if anyone had thoughts on what strategies I could try to improve things in this case.
So I've got a form on an excel worksheet - it's narrow and long and a requirement is to pdf this form out to many people. So with a bit of trial and error, I decided on 4.5 cm x 20 using the "Microsoft Print to PDF" printer. That worked very well but I had to set up that custom size on my own computer. Now say 1000 computers need the same form on their computers and they need to print the form to PDF as well. Well, I couldn't go to 1000 computers and set up this custom page. So we tried to do it through the printer driver but setting up a new page size and have all 1000 computers point to it. This is not going well at all and the radio buttons are almost unreadable.
I'm using the .ExportAsFixedFormat class to perform the PDF conversion. I wondered if anyone had thoughts on what strategies I could try to improve things in this case.
VBA Code:
Public Sub CreatePDFFile(sName As String)
With ActiveSheet
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Environ("USERPROFILE") & "\Desktop\" & sName & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub