[Resolvido]Alguém sabe qual a biblioteca desse IMxDocument ?

Estou tentando Depurar e compilar (para criar um MDE) e me retorna esta seguinte mensagem:

"O tipo definido pelo usuário não foi definido"

e fica sublinhado esse IMxDocument no código do meu Form.

Eu acredito ser a falta de alguma biblioteca referenciada no menu Ferramentas > Referencias...

Será que é isso? Alguém sabe?

Veja lá se tem alguma referência escrito AUSENTE. Se tiver, desmarque-a e veja se funciona. Talvez ela nem seja necessária, mas, caso seja, aí precisará registrar a biblioteca ou talvez apenas copiá-la para a System32.

criquio,

Eu olhei as referencias e não tem nenhuma escrito AUSENTE, o que faço? alguma ideia?

obrigado!

Se tiver escrito no inicio do modulo Option Explicit, comente ou delete e teste;

Se não terá de declarar;

Dim SeuDocumento As IMxDocument

Ou

Dim SeuDocumento As esriArcMapUI.IMxDocument

Não sei como tem a API defenida.

JPaulo,

é exatamente na declaração que na hora de Compilar que ele para e exibe o erro.

Tentei trocar Dim pMxDoc As IMxDocument por
Dim FrmSetup_InfoFlex As ArcMapUI.IMxDocument.

Mas ai a compilação parou no Dim FrmSetup_InfoFlex As ArcMapUI.IMxDocument e exibiu o erro: "O tipo definido pelo usuário não foi definido"

Poste ae o código todo que usa essa variavel IMxDocument

Public Sub PaperToTabloid()
'Dim FrmSetup_InfoFlex As ArcMapUI.IMxDocument
Dim pMxDoc As IMxDocument
Dim pMxApp As IMxApplication
Dim pPrinter As IPrinter
Dim pPaper As IPaper
Dim iFormId As Long
Dim dPaperWidth As Double, dPaperHeight As Double
Dim sFormName As String
Dim pEnumTypeInfo As IEnumNamedID
Dim sTargetForm As String

Set pMxDoc = ThisDocument
Set pMxApp = ThisDocument.Parent
Set pPrinter = pMxApp.Printer
Set pPaper = pPrinter.Paper

' do a non-case-sensitive search for "11 x 17" in the paper sizes
' reported by the printer.
sTargetForm = "11 x 17"
Set pEnumTypeInfo = pPaper.Forms
pEnumTypeInfo.Reset
iFormId = pEnumTypeInfo.Next(sFormName)
Do While (InStr(1, sFormName, sTargetForm, vbTextCompare) < 1) And (iFormId > 0)
Debug.Print "FormID:" & iFormId & vbTab & "FormName:" & sFormName
iFormId = pEnumTypeInfo.Next(sFormName)
DoEvents
Loop
Debug.Print "*** searched for '" & sTargetForm & "'... found:";
Debug.Print " FormID:" & iFormId & vbTab & "FormName:" & sFormName

' exit the subroutine if the target form was not found on the current printer
If iFormId = 0 Then Exit Sub

' if target form was found, assign it's form id to the Paper object
pPaper.FormID = iFormId

' set the page size to match the new paper size
pPaper.QueryPaperSize dPaperWidth, dPaperHeight
pMxDoc.PageLayout.Page.PutCustomSize dPaperWidth, dPaperHeight

' turn Same As Printer on
pMxDoc.PageLayout.Page.FormID = esriPageFormSameAsPrinter
pMxDoc.ActiveView.PrinterChanged pMxApp.Printer

End Sub

Agradecendo desde já!

Esse código está elaborado para VB6 e não Ms Access.

Qual o programa que você pretende usar com esse código ?

Você tem o ArcView ?

Pelo que li, o código usa o programa ArcGIS Desktop.

http://edndoc.esri.com/arcobjects/9.2/ComponentHelp/esriArcMapUI/IMxDocument.htm

Pois é, me passaram esse programinha ACCESS para fazer manutenção.
Após a manutenção eu precisei criar um MDE desse projetinho. Na hora de compilar é que me deparei com essa rotina aí.
Vou tentar arrancar essa rotina pra ver se continuam todas as funcionalidades e me deixa compilar.