CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

domino1977 Nybegynder

07. november 2002 - 13:32 Der er 24 kommentarer og
1 løsning

Udskrivning af ANDRE filer!!!

Jeg har allerede oprettet et spørgsmål, men vil gerne afkorte den lidt!!!

SE: http://www.eksperten.dk/spm/280467

Men jeg vil meget glad hvis bare nogen kan hjælpe mig med at udskriv en fil!

Ikke alt det andet.....

Bare en udskrivning!!

Den kode jeg har at går lidt udfra lige nu er:
-----------------------------------------------------------
Dim swapp 'As Object

Set swapp = CreateObject("SWViewer.Application")
swapp.ChangeFileOpenDirectory ("C:\TEST")
swapp.Documents.Open ("test.SLDDRW")
swapp.ActiveDocument.PrintOut
Set swapp = Nothing
-----------------------------------------------------------
men den kommer med denne fejl her:

Run-time error '438':
Object dosen't support this property or method

Koden virker fint med andre filer som txt filer osv....

Er der noget der skal slås til i referencer eller????

Synes godt om

jennemaan Nybegynder

07. november 2002 - 13:39 #1

Prøv følgende:

Under Project-References laver du en reference til Solid Works Viewer librariet....

Herefter kan du skrive

Dim swapp as SWViewer.Application
Set swapp=new SWViewer.Application

Herefter kan du via intellisense se hvilke properties/methods/etc som SWViewer.Applicationobjektet har...
Jeg vil gætte på at det er noget med at du skal
skrive noget med:

Dim mDoc as SWViever.Document 'eller hvad objektettypen nu hedder

swapp.ChangeFileOpenDirectory ("C:\TEST")
Set mDoc=swapp.Documents.Open("test.SLDDRW")
mDoc.Printout
' swapp.ActiveDocument.PrintOut <- tror ikke at ActiveDocument peger på dit åbne dokument...

Alternativt:

swapp.ChangeFileOpenDirectory ("C:\TEST")
swapp.Documents.Open("test.SLDDRW")
swapp.Documents("test.SLDDRW").Printout
'eller
swapp.Documents(1).Printout

/Jennemaan

Synes godt om

domino1977 Nybegynder

07. november 2002 - 13:46 #2

Hvad er:
Solid Works Viewer librariet....

jeg skal lave en refference en fil og ikke kun et bibliotek!

Synes godt om

tubber Juniormester

07. november 2002 - 13:55 #3

domino1977: Du skal lukke det andt spg så....du stiller faktisk det samme spg to gange og det må man ikke......

Så kan du oprette et nyt spg på den anden del hvis det er...

Synes godt om

domino1977 Nybegynder

07. november 2002 - 13:55 #4

Ok... jeg lukker det andet!

Synes godt om

domino1977 Nybegynder

07. november 2002 - 13:57 #5

Så er den anden sag lukket..... tubber kan du hjælpe mig??

Synes godt om

jennemaan Nybegynder

07. november 2002 - 13:59 #6

Solid Works Viewer librariet er det typelibrary som fortæller VB hvilke objekter osv. der er til rådighed. Du kan selvfølgelig gøre som du vil (Altså bruge Createobject).

Synes godt om

jennemaan Nybegynder

07. november 2002 - 14:00 #7

prøv:

Dim swapp 'As Object

Set swapp = CreateObject("SWViewer.Application")
swapp.ChangeFileOpenDirectory ("C:\TEST")
swapp.Documents.Open ("test.SLDDRW")
swapp.Documents("test.SLDDRW").PrintOut
Set swapp = Nothing

Synes godt om

domino1977 Nybegynder

07. november 2002 - 14:05 #8

jennemaan -> Det er da den kode jeg selv skrev ligefør.....????

Men jeg ved at Adobe (PDF) de har en "*.ocx" som kan tilføjes til i referencer!!! Men Solid Works ligger ikke sådan en fil ud!!!

Synes godt om

jennemaan Nybegynder

07. november 2002 - 14:09 #9

Det er ikke den kode du skrev før;

Du skrev
swapp.ActiveDocument.PrintOut

Jeg foreslår
swapp.Documents("test.SLDDRW").PrintOut

Hvilen linje fejler den i?

Synes godt om

tubber Juniormester

07. november 2002 - 14:11 #10

Har du selv solidworks installeret ?
Så ligger den ocx måske der...

Synes godt om

domino1977 Nybegynder

07. november 2002 - 14:11 #11

Sorry...... det var mig der var lidt for hurtig!!

Den stopper her:
swapp.ChangeFileOpenDirectory ("C:\TEST")
Og kommer med den fejl meddelse!

Synes godt om

tubber Juniormester

07. november 2002 - 14:12 #12

det er ikke en ref, men en component så......du kan se om den er der ved at højreklikke ude til venstre og vælge components....

Synes godt om

tubber Juniormester

07. november 2002 - 14:14 #13

http://ic.net/~kusluski/cad.exe <-- ved ikke om det er det du leder efter ?
Det er en cad.ocx

Synes godt om

domino1977 Nybegynder

07. november 2002 - 14:17 #14

OK!..

Nu fandt jeg de Solidworks ting der!! Der er 3 og jeg har add allesammen!

Men det laver jo kun 3 nye iconer!!!

Synes godt om

tubber Juniormester

07. november 2002 - 14:20 #15

http://www.personal.kent.edu/~knamjesn/vbsearch32.html <-- her er der også noget...

Synes godt om

domino1977 Nybegynder

07. november 2002 - 14:20 #16

tubber -> Det er kun en viewer jeg har installeret..... ligesom Adobe Acrobat Reader.....

Synes godt om

jennemaan Nybegynder

07. november 2002 - 14:21 #17

siden at du kan bruge en Createobject("SWViewer.Application") må der være et tilsvarende type-library installeret...

Prøv at vælge Project-References og kig listen igennem og se om der ikke skulle være en der matcher. Ved at bruge tyelibrariet fortæller VB dig hvilke SWViewer Objekter du kan kreere, hvilke metoder, samt hvilken properties de har. Der kan du f.eks. se om SWViewer.Application har en metode der hedder ChangeFileOpenDirectory eller ej (det har den sandsynligvis ikke da det er her fejlen opstår)...

/Jennemaan

Synes godt om

tubber Juniormester

07. november 2002 - 14:22 #18

ok

Jeg ved ikke hvad de hedder men skriv noget i din kode så kan du få frem hvad den kan....

solid1.

når du trykker punktum foreslår den noget :O)

Synes godt om

domino1977 Nybegynder

07. november 2002 - 14:31 #19

Når jeg skriver SldDrawctl. så kommer der kun "Document" at vælge imellem!

Synes godt om

domino1977 Nybegynder

07. november 2002 - 15:09 #20

OK!!!

Med denne kode her kan jeg få den til at åbne op i Solid Works Viewer!!!

Kan I hjælpe mig derfra????

-------------------------------------------------------------------------------
Private Sub cmdPrint_Click()
Dim RetVal As Long, strSti As String
strSti = ("C:\TEST\test.slddrw")
RetVal = ÅbnMappe(strSti)

End Sub

Function ÅbnMappe(ByVal strPath As String) As Long
Dim strShell As String
strShell = "C:\\Programmer\\SolidWorksViewer\\swviewer.EXE " & Chr(34) & strPath & Chr(34)
'strShell = "C:\\Programmer\\Internet Explorer\\IEXPLORE.EXE " & Chr(34) & strPath & Chr(34)
ÅbnMappe = Shell(strShell, 1)

End Function
-------------------------------------------------------------------------------

Synes godt om

domino1977 Nybegynder

07. november 2002 - 15:33 #21

Har I givet op?????

Synes godt om

domino1977 Nybegynder

07. november 2002 - 15:34 #22

Det jeg måske havde tænkt mig var at udskriv filen fra InternetExploreren..... kan man få den til det???

Synes godt om

domino1977 Nybegynder

07. november 2002 - 15:45 #23

Nårh..... men jeg lader lige sagen stå lidt åben lidt endnu!

Synes godt om

domino1977 Nybegynder

08. november 2002 - 08:46 #24

Ok... lukker sagen og opretter en ny!

Synes godt om

jennemaan Nybegynder

08. november 2002 - 10:17 #25

Har du overhovedet prøvet at lave en reference til SWViewer?

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic	5	29/08/202512:28	04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic	0	05/08/202510:10	-
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic	0	16/05/202512:31	-
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic	1	22/04/202514:55	25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic	12	10/07/202417:34	12/07/202414:34

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS