Lotus Notes - Introducir PageSet.dll

 
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Introducir PageSet.dll

Publicado por Hell Desk Notes (1 intervención) el 18/01/2007 21:18:48
Aqui ayudaría mucho el error.

Dim obj As PageSet.printercontrol
Notes no admite en una declaración de variable llamar a una funcion. Prueba ...

Dim obj as Variant
set obj=PageSet.printercontrol

por ejemplo.

o tambien se me ocurre:
Dim obj As New PageSet.printercontrol

Aunque el PageSet.printercontrol no me parece muy ortodoxo para Notes.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar