Notifikationer

Markér alle som læst Log ud

Nicolai Nybegynder

22. januar 2006 - 22:31 Der er 5 kommentarer og
1 løsning

Udskrive Excel ark fra VB 6.0 til PostScript-fil

Hej.

Jeg vil fra VB 6.0 meget gerne udskrive et navngivent Excel ark til min default printer, men dog som PostScript fil. Jeg har selv været lidt rundt på nettet, og er kommet frem til denne kode, men jeg kan ikke få den til at virke.

Nogen gode idéer til en alternativ løsningsmetode eller hjælp til at få denne kode til at virke.

Dim msExcel As Excel.Application
Set msExcel = New Excel.Application

msExcel.Visible = False
msExcel.Workbooks.Open "C:\test.xls"
msExcel.ActiveWorkbook.PrintOut ,,,,True,,"C:\test.ps"
msExcel.ActiveWorkbook.Close False
msExcel.Quit
Set msExcel = Nothing

Jeg har også prøvet uden "suffix" på printout, bare for at se om jeg kan få en alm. udskrift, men det virker heller ikke.

Hjælp!

Synes godt om

kabbak Professor

22. januar 2006 - 22:34 #1

msExcel.sheets("navnet på dit ark).PrintOut ,,,,True,,"C:\test.ps"

Synes godt om

kabbak Professor

22. januar 2006 - 22:59 #2

Dim msExcel As Excel.Application
Set msExcel = New Excel.Application
msExcel.Visible = False
msExcel.Workbooks.Open "C:\test1.xls"
Sheets("ark1").Select ' ret til dit ark
ActiveWindow.SelectedSheets.PrintOut , , , , , True, , "C:\test.ps"
ActiveWorkbook.Close False
msExcel.Quit
Set msExcel = Nothing

Synes godt om

Nicolai Nybegynder

23. januar 2006 - 08:02 #3

Tak. Din løsning giver mig dog følgende fejl:

Method 'Sheets' of Object '_Global' failed.

Hvis jeg så prøver at srkive msExcel.Sheets("arknavn").Select istedet kommer denne fejl frem:

Method 'Sheets' og object '_Application' failed.

Kan du gennemskue hvad det er?

Synes godt om

kabbak Professor

23. januar 2006 - 10:37 #4

har du sat reference til Microsoft Excel x.x object libarary
Det gøres Project > references

Synes godt om

Nicolai Nybegynder

23. januar 2006 - 13:49 #5

Ja, jeg har sat referencen.

Men jeg har imellemtiden lige løst problemet med følgende kode (har bakset i et par timer med dette åndsvage lille problem):

Dim msExcel As Workbook
Dim exportExcel As String
Dim exportPDF As String
Dim exportPS As String

exportExcel = App.Path & "\" & "filnavn.xls"
exportPS = App.Path & "\" & "filnavn.ps"

Set msExcel = GetObject(exportExcel)

msExcel.Sheets("sheetnavn").Select
msExcel.Worksheets.PrintOut , , , , , True, , exportPS
msExcel.Close

Set msExcel = Nothing

Synes godt om

Nicolai Nybegynder

06. februar 2006 - 16:07 #6

Ligger lige et svar selv

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