Imprimir ou guardar em PDF

[estica 1]

Boa noite,
Estou aqui com um problema.
Tenho um programa e tem a função de mandar imprimir o que está apresentado numa Form.

O que acontece é que eu quero que ele me pergunte se quero pré visualizar ou guardar em PDF ou imprimir, mas se a impressora estiver ligada ele não pergunta nada e manda simplesmente imprimir.

Deixo aqui o código para ver se alguém me consegue ajudar.

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

Dim bm As New Bitmap(Me.Panel1.Width, Me.Panel1.Height)

Panel1.DrawToBitmap(bm, New Rectangle(0, 0, Me.Panel1.Width, Me.Panel1.Height))

e.Graphics.DrawImage(bm, 0, 0)

Dim aPS As New PageSetupDialog

aPS.Document = PrintDocument1

End Sub

 

[estica 1]

Não sei se alguém compreendeu a minha duvida. Se tiver de meter aqui o código todo para me ajudarem, eu posso postar o code