/ Forside/ Teknologi / Administrative / MS-Office / Spørgsmål
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
MS-Office
#NavnPoint
sion 18709
refi 14474
Klaudi 9389
Rosco40 5695
berpox 5456
dk 5398
webnoob 4919
Benjamin... 4870
o.v.n. 4637
10  EXTERMINA.. 4373
Makro til print i Word 2003
Fra : traveldreamer
Vist : 433 gange
150 point
Dato : 06-04-12 09:57

Jeg har brug for lidt hjælp!

Skal bruge en makro i Word 2003, som aflæser en brugers Default printer, udskriver på en anden navngiven printer og sætter brugerens printer tilbage til Default printeren som før.
Har prøvet med nedenstående men får:

Compile error
User-defined type not defined:

Sub MAIN
'Retrieve and set information about the current default printer
Dim FPS As FilePrintSetup
GetCurValues FPS
'Set the default Printer
DefaultPrinter$ = FPS.Printer
FilePrintSetup .Printer = "HP LaserJet IIISi on LPT1:"
'Send the document to the currently selected printer
FilePrint
'Reset to the original default printer
FilePrintSetup .Printer = DefaultPrinter$
End Sub


 
 
Accepteret svar
Fra : EXTERMINATOR

Modtaget 150 point
Dato : 06-04-12 18:58

Du kan altså ikke bruge makroprogramering fra word6 i noget nyere wordprogram, kan dog ikke lige huske om ikke word 95 vil virke med ovenstående men det virker helt sikkert ikke i word 97 eller nyere

Du kan jo prøve med denne her istedet for
Kode
Sub Udskriv()
Dim GlPrint As String
GlPrint = ActivePrinter
ActivePrinter = "OKI C9850 MFP"
ActiveDocument.PrintOut
ActivePrinter = GlPrint
End Sub

Husk at ændre til en printer du har installeret

Godkendelse af svar
Fra : traveldreamer


Dato : 15-04-12 21:21

Tak for svaret EXTERMINATOR, det var lige hvad jeg havde brug for


Du har følgende muligheder
Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.
Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408926
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste