Managed to sort this myself in the end with the following :
Managed to sort this myself in the end with the following :
PrivateSub btnPDFExport_Click(sender AsObject, e AsEventArgs) Handles btnPDFExport.Click
Dim byteViewer AsByte() = ReportViewer1.LocalReport.Render("PDF")
With Me.SaveFileDialog1
.Filter = "PDF files (*.pdf)|*.pdf"
.FilterIndex = 2
.FileName = "Early Morning Checklist Report (" & DateTime.Today.ToString("dd.MM.yyyy") & ").pdf"
.RestoreDirectory = True
.ShowDialog()
End With
Try
Dim newFile AsNew System.IO.FileStream(Me.SaveFileDialog1.FileName, IO.FileMode.Create)
newFile.Write(byteViewer, 0, byteViewer.Length)
newFile.Close()
Catch ex AsException
MessageBox.Show("Unable to export PDF report." & ControlChars.NewLine & ControlChars.NewLine & "Additonal information : " & ex.Message, "Export PDF Report", MessageBoxButtons.OK, MessageBoxIcon.Information)
EndTry
EndSub