07. november 2002 - 12:54Der er
4 kommentarer og 1 løsning
Udskrivning af fil! Den er måske svær!
Jeg har nogle filer listet i en list box... det er Solidworksfiler... de virker lidt som PDF filer... man kan installerer en viewer så man kan åbne dem og udskrive dem, men IKKE rette i den...
Man kan selvfølgelig med Solidworks tegneprogrammet hente dem ind og redigerer i dem, men det er lidt lige meget lige nu!
Jeg har feks en tegning hvortil der er knyttet 5 andre filer... som er tegnet i Solidworks. De er bliver hentet ind i en Listebox fra en database når man finder den tegning man gerne vil bruge...
SÅ er mit spørgsmål... kan man få VB 6.0 til at printe X antal sider ud automatisk istedet for at man skal direkte ind på hver fil, højre klikke på filen g sige udskriv...
Somsagt er er Solidworks filer... de hedder "*.SLDDRW" til efternavn!!
Nogen der har løst til at påtage sig denne opgave????
Jeg har denne kode her: ------------------------------------------------------------------------------- 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????
ctacta: Naivt ? Nu ligger det sådan man ikke må give mere end 200 points for et spg, og man må ikke lave 2 spg for at give mere end 200 points, hvis du mener det er for lidt kan du jo lade være med at hjælpe...
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.
