Office Forum www.Office-Loesung.de Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: ---> Neu: Office 2010 Forum <- Forum-Regeln :: FAQ :: Forum-Suche :: Mitgliederliste :: Benutzergruppen :: Favoriten ::  Registrieren :: Profil :: Briefkasten :: Login

Makro erstellen, bis zur Druckerauswahl

Office Forum -> Excel Forum -> Excel Formate
zurück: Workbook Sheet Change reagiert nicht weiter: Excel Korrekturen			Unbeantwortete Beiträge anzeigen
	Status: Bitte Status wählen !		Diese Seite Freunden empfehlen Zu Browser-Favoriten hinzufügen

Autor	Nachricht
Kena Gast Verfasst am: 01. Dez 2006, 11:37 Rufname:	- Makro erstellen, bis zur Druckerauswahl Nach oben        Version: Office 2k (2000) Hallo, ich möchte ein Makro erstellen, dass bis zur Druckerauswahl geht. Hintergrund: Das Dokument wird von mehreren Benutzern genutzt, die alle auf andere Drucker zugreifen! Für Hilfe wäre ich dankbar! Kena
myfake Neuling trifft's nicht ganz :) Verfasst am: 01. Dez 2006, 11:46 Rufname: Wohnort: bei Stuttgart	- AW: Makro erstellen, bis zur Druckerauswahl Nach oben        Version: Office 2k (2000) Hallo Kena, wenn Du diese Anweisung hier ... Code: Application.Dialogs(xlDialogPrint).Show ... an der richtigen Stelle in Deinen Code einbaust, wird der Druckerauswahlfenster gestartet. Vielleicht hilft Dir das ja weiter. cu myfake _________________ Eine Rückmeldung wird gerne gesehen
Kena Gast Verfasst am: 01. Dez 2006, 11:55 Rufname:	- AW: Makro erstellen, bis zur Druckerauswahl Nach oben        Version: Office 2k (2000) Okay, danke schonmal für die schnelle Antwort jedoch: Sub DruckenLängs() ' ' DruckenLängs Makro ' Makro zum Drucken ' ' With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = "" With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.787401575) .RightMargin = Application.InchesToPoints(0.787401575) .TopMargin = Application.InchesToPoints(0.984251969) .BottomMargin = Application.InchesToPoints(0.984251969) .HeaderMargin = Application.InchesToPoints(0.4921259845) .FooterMargin = Application.InchesToPoints(0.4921259845) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 600 .CenterHorizontally = False .CenterVertically = False .Orientation = xlPortrait .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = 100 End With ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub wo ist die "richtige Stelle"?
myfake Neuling trifft's nicht ganz :) Verfasst am: 01. Dez 2006, 12:22 Rufname: Wohnort: bei Stuttgart	- AW: Makro erstellen, bis zur Druckerauswahl Nach oben        Version: Office 2k (2000) Hallo Kena, das ist jetzt völlig ungetestet! Versuche es doch mal so: ersetzen der Zeile .... Code: ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True .... mit der von mir eingestellten Zeile. cu myfake _________________ Eine Rückmeldung wird gerne gesehen
Kena Gast Verfasst am: 01. Dez 2006, 12:28 Rufname:	- AW: Makro erstellen, bis zur Druckerauswahl Nach oben        Version: Office 2k (2000) Hallo myfake, das funktioniert leider nicht... hast du noch eine andere Idee? Gruß
myfake Neuling trifft's nicht ganz :) Verfasst am: 01. Dez 2006, 12:41 Rufname: Wohnort: bei Stuttgart	- AW: Makro erstellen, bis zur Druckerauswahl Nach oben        Version: Office 2k (2000) Hallo Kena, was funktioniert denn nicht? Ich habe es gerade mal getestet und es kam zumindest das heraus, was ich erwartete ;) Code: Sub DruckenLängs() With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = "" With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.787401575) .RightMargin = Application.InchesToPoints(0.787401575) .TopMargin = Application.InchesToPoints(0.984251969) .BottomMargin = Application.InchesToPoints(0.984251969) .HeaderMargin = Application.InchesToPoints(0.4921259845) .FooterMargin = Application.InchesToPoints(0.4921259845) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 600 .CenterHorizontally = False .CenterVertically = False .Orientation = xlPortrait .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = 100 End With Application.Dialogs(xlDialogPrint).Show End Sub Zunächst wurden die "Rahmenbedingungen" festgelegt und zum Schluß ging das Druckauswahlfenster auf. cu myfake _________________ Eine Rückmeldung wird gerne gesehen
Kena Gast Verfasst am: 01. Dez 2006, 13:14 Rufname:	- AW: Makro erstellen, bis zur Druckerauswahl Nach oben        Version: Office 2k (2000) Vielen Dank! es funzt! Gruß
myfake Neuling trifft's nicht ganz :) Verfasst am: 01. Dez 2006, 13:24 Rufname: Wohnort: bei Stuttgart	- AW: Makro erstellen, bis zur Druckerauswahl Nach oben        Version: Office 2k (2000) Hallo Kena, mal Hand aufs Herz - Du hattest es vorhin gar nicht versucht, oder? Ich habe tatsächlich nichts weiter gemacht, als was ich oben geschrieben habe. Oder war da etwas unklar? cu myfake _________________ Eine Rückmeldung wird gerne gesehen Zuletzt bearbeitet von myfake am 01. Dez 2006, 14:21, insgesamt einmal bearbeitet
Kena Gast Verfasst am: 01. Dez 2006, 14:14 Rufname:	- AW: Makro erstellen, bis zur Druckerauswahl Nach oben        Version: Office 2k (2000) Also, ich habe es wirklich veruscht...als ich es jedoch deinen ganzen Text reinkopiert habe, hat es funktioniert! Und jetzt, wo es einmal optimal funktioniert hat, und ich alles abgespeichert habe, um es ein weiters mal zu testen, nachdem ich das Dokument geschlossen habe, kommt folgende Fehlermeldung: "Die Print-Qualilty-Eigenschaft des PageSetup-Objektes kann nicht festgelegt werden." der Debugger makiert mir folgende Zeile: .PrintQuality = 600 Das ist kein Scherz...ich verzweifel daran noch Hast du da evtl. noch einen Rat? Gruß
myfake Neuling trifft's nicht ganz :) Verfasst am: 01. Dez 2006, 14:27 Rufname: Wohnort: bei Stuttgart	- AW: Makro erstellen, bis zur Druckerauswahl Nach oben        Version: Office 2k (2000) Hallo Kena, hmm ..... ich habe es jetzt gerade nochmal getestet (diesmal mit vorherigem Speichern und erneutem Aufrufen). Bei mir läuft es immer problemlos durch. Kann es sein, dass irgend ein Drucker installiert ist, der evtl. diese Druckqualität nicht darstellen kann? Das wäre für mich die einzige Erklärung, die ich hätte . Doch auch wenn es das wäre, hätte ich keine passende Lösung für dieses Problem zur Hand. Sorry! Evt. hat noch jemand anders eine Idee oder einen Tipp hierzu. cu myfake _________________ Eine Rückmeldung wird gerne gesehen

Nach oben

Alle Zeiten sind GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1 Gehe zu: Forum auswählen Office Forum Allgemein----------------Office Forum BekanntmachungenFragen & Anregungen zum Office ForumOffice Dienstleistungen && Schulungen || Jobs ~~ SoftwareOffice 2007 ForumOffice 2010 ForumAnwendungsübergreifende FragenForum für OpenOffice und Staroffice  Word Forum----------------Word Tipps & TricksWord FormateWord GestaltungselementeWord SerienbriefeWord VBA Programmierung (Makros)Word Hilfe Excel Forum----------------Excel Tipps & TricksExcel FormateExcel FormelnExcel AuswertungenExcel VBA (Makros)Excel Hilfe Powerpoint Forum----------------PowerPoint Tipps & TricksPowerpoint PräsentationenPowerPoint VBA (Makros) Outlook Forum----------------Outlook Tipps & TricksOutlook MailOutlook KontakteOutlook KalenderOutlook HilfeOutlook VBA und FormulareOutlook Express Access Forum----------------Access Tipps & TricksAccess Tabellen & AbfragenAccess FormulareAccess BerichteAccess Programmierung / VBAAccess Hilfe MS Access und Datenbank-Server----------------Microsoft Access und MS SQL ServerMicrosoft Access und MySQLMicrosoft Access und andere Datenbank-Server Office Software----------------MS Project ForumPublisher ForumMS MapPoint ForumMS Visio ForumMS OneNote ForumMS InfoPath ForumMS Groove ForumMS SharePoint Services Forum HTML Editor Forum----------------Frontpage ForumMS Expression Web ForumMacromedia Dreamweaver ForumHTML Editoren ForumHTML & CSS ForumPHP & JavaScript Forum Computer Forum----------------SicherheitHardware & Betriebssystem ForumWindows Vista & Windows 7 ForumSoftware Forum (Sonstige Software) Workshops----------------WorkshopsWorkshop: RegressionsanalyseWorkshop: Webdesign für EinsteigerWorkshop: Excel Projekte Banken Forum----------------WISO Mein Geld ForumStarmoney ForumGirokonto & Tagesgeld ForumOnline Broker ForumBanking Software Chillout Forum----------------Office Treffen RegionalFußball ForumSmalltalkSchach ForumForum-Spiele

Du kannst Beiträge in dieses Forum schreiben. Du kannst auf Beiträge in diesem Forum antworten. Du kannst deine Beiträge in diesem Forum nicht bearbeiten. Du kannst deine Beiträge in diesem Forum nicht löschen. Du kannst an Umfragen in diesem Forum nicht mitmachen. Du kannst Dateien in diesem Forum nicht posten Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen		Antworten	Autor	Aufrufe	Letzter Beitrag
	Excel VBA (Makros): Excel - per Makro Daten aus einer Spalte in Zeilen kopieren	5	kajoku	126	26. Jun 2010, 18:02 Gast
	Excel Formate: unterschiedliche Zahlen und Datumsformate via Makro abfragen	1	Newbie@vba	116	14. Jun 2010, 11:52 Gast
	Excel VBA (Makros): Private Sub CommandButton1_Click() mittels makro einfügen	3	Tim0815	1043	15. Jun 2009, 15:14 Tim0815
	Excel VBA (Makros): Geschütztes Makro löschen	2	AStadler1982	314	26. Feb 2009, 10:11 AStadler1982
	Excel VBA (Makros): VBA Macro zum erstellen einer Ordnerstruktur	16	Rockket	1346	18. Jan 2009, 19:47 Gast
	Excel VBA (Makros): Minimum, Maximum per Makro	5	john84	535	09. Jan 2009, 22:41 john84
	Excel Formeln: Hilfe beim Erstellen eines Formblattes	5	Mr.B	115	24. Nov 2008, 16:13 Klaus-Dieter
	Excel Auswertungen: Mittelwert (diagramm erstellen)	4	Eran	1142	07. Aug 2008, 10:27 Eran
	Excel VBA (Makros): verküpfung auf geschützte excel datei mit makro öffnen	0	Scotch	3354	04. Jun 2008, 14:10 Scotch
	Excel VBA (Makros): Excel Makro Kalendereinträge übernehmen	4	Gast	927	28. Apr 2008, 10:21 Gast
	Excel VBA (Makros): Textdateien per Makro importieren	12	RonnyMeyer	728	24. Apr 2008, 06:50 RonnyMeyer
	Excel Formeln: Diagramm erstellen	0	azidhead	314	30. Jan 2008, 17:21 azidhead

----> Diese Seite Freunden empfehlen <------	Impressum - Besuchen Sie auch: HTML CSS