Introducir PageSet.dll
Publicado por Nagore (1 intervención) el 12/01/2007 09:28:14
Hola, tengo un problema a la hora de declarar un dll.
La variable para declararla no me la acepta y ya no sé qué más hacer.
Pongo el código:
' /////////
(Declarations) Declare Sub PageSet Lib "PageSet.dll" ( )
Dim obj As PageSet.PrinterControl --> Aquí me da error,
(Funcion) Private Sub Command1_Click()
On Error Goto errorhandler
Set obj = New PrinterControl
obj.ChngOrientationLandscape
DataReport1.Show
DataReport1.PrintReport False, rptRangeFromTo, 1, 1
Exit Sub
errorhandler:
MsgBox Err.Description
obj.ReSetOrientation
End Sub
(Funcion) Private Sub Form_Unload(Cancel As Integer)
obj.ReSetOrientation 'This resets the printer to portrait.
End Sub
'///////
Si alguien puede ayudarme, se lo agradecería mucho.
Gracias de antemano
La variable para declararla no me la acepta y ya no sé qué más hacer.
Pongo el código:
' /////////
(Declarations) Declare Sub PageSet Lib "PageSet.dll" ( )
Dim obj As PageSet.PrinterControl --> Aquí me da error,
(Funcion) Private Sub Command1_Click()
On Error Goto errorhandler
Set obj = New PrinterControl
obj.ChngOrientationLandscape
DataReport1.Show
DataReport1.PrintReport False, rptRangeFromTo, 1, 1
Exit Sub
errorhandler:
MsgBox Err.Description
obj.ReSetOrientation
End Sub
(Funcion) Private Sub Form_Unload(Cancel As Integer)
obj.ReSetOrientation 'This resets the printer to portrait.
End Sub
'///////
Si alguien puede ayudarme, se lo agradecería mucho.
Gracias de antemano
Valora esta pregunta


0