Accde yapmadı ve uyarı verdi nerelerde hata var diye nasıl bulabilirim
@benbendedeilem
Public Sub PrinterSides(ByVal pyNum As Byte)
'acPRDPSimplex = 1
'acPRDPHorizontal = 2
'acPRDPVertical = 3
Select Case pyNum
Case ": 'nothing to do"
Case 1
rpt.Printer.Duplex = acPRDPSimplex
Case 2
rpt.Printer.Duplex = acPRDPHorizontal
Case 3
rpt.Printer.Duplex = acPRDPVertical
End Select
Printer.Duplex = pyNum
End Sub