Druckertypen in Combobox zur Auswahl

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Druckertypen in Combobox zur Auswahl
von: Holger Wächter
Geschrieben am: 04.04.2005 08:35:55
Hallo zusammen,
ich habe eine Userform erstellt, wo man auswählen kann welche Blätter man ausdrucken möchte.
Jetzt hätte ich gerne noch eine Combobox wo man die installierten Drucker auswählen kann und dieser dann beim nächsten 'PrintOut' - Befehl benutzt wird.
Wie kann ich die Combobox damit füllen und wie benutzt ich bei 'Printout' dann den Drucker?
MfG
Holger Wächter

Bild

Betrifft: AW: Druckertypen in Combobox zur Auswahl
von: Tobias Marx
Geschrieben am: 04.04.2005 11:36:38
Servus!
Ich denke mal, dies hier wird dir weiterhelfen:
http://mypage.bluewin.ch/reprobst/WordFAQ/APrinter.htm

Gruss

Tobias
Bild

Betrifft: AW: Druckertypen in Combobox zur Auswahl
von: Holger Wächter
Geschrieben am: 04.04.2005 12:49:20
Das hat mich schon etwas weiter gebracht. Mit dem Befehl Activeprinter kann ich also den Drucker ansprechen den ich möchte.
Jetzt will ich nur noch wissen, wie ich die zur Zeit installierten Druckertreiber auslese und die in einer Combo- oder Listbox zur Auswahl ausgebe?
Würde mich freuen wenn Ihr mir helfen könnt.
MfG
Holger Wächter
Bild

Betrifft: AW: Druckertypen in Combobox zur Auswahl
von: Tobias Marx
Geschrieben am: 04.04.2005 12:53:41
Servus!
Ein Beispiel von Hans:
https://www.herber.de/mailing/168902h.htm
Gruss

Tobias
Bild

Betrifft: Nachtrag
von: Tobias Marx
Geschrieben am: 04.04.2005 12:58:52
Servus!
Hab soeben bemerkt, dass der Code auf der Seite nicht vollstaendig ist. Hier eine andere Version:
https://www.herber.de/forum/archiv/76to80/t77914.htm
Gruss

Tobias
Bild

Betrifft: AW: Nachtrag
von: Holger Wächter
Geschrieben am: 04.04.2005 13:55:42
Super, danke das war es was ich gesucht habe.
Wenn Du mir jetzt noch sagen könntest wie ich das 'Einrichten oder Eigenschaftenfenster' für den entsprechenden Drucker dann öffnen kann.
Das Fenster welches Standardmässig für die Drucker unter Excel aufzurufen ist. Wie kann ich das mit einem Commandbutton aufrufen?
MfG
Holger Wächter
Bild

Betrifft: AW: Nachtrag
von: Tobias Marx
Geschrieben am: 04.04.2005 14:06:47
Servus!
Ich paste dir jetzt mal ne Liste aus der VBA-Hilfe, jeder Dialog wird mit Hilfe von Application.Dialogs(xlDialog).Show aufgerufen:
xlDialogActivate window_text, pane_num
xlDialogActiveCellFont font, font_style, size, strikethrough, superscript, subscript, outline, shadow, underline, color, normal, background, start_char, char_count
xlDialogAddChartAutoformat name_text, desc_text
xlDialogAddinManager operation_num, addinname_text, copy_logical
xlDialogAlignment horiz_align, wrap, vert_align, orientation, add_indent
xlDialogApplyNames name_array, ignore, use_rowcol, omit_col, omit_row, order_num, append_last
xlDialogApplyStyle style_text
xlDialogAppMove x_num, y_num
xlDialogAppSize x_num, y_num
xlDialogArrangeAll arrange_num, active_doc, sync_horiz, sync_vert
xlDialogAssignToObject macro_ref
xlDialogAssignToTool bar_id, position, macro_ref
xlDialogAttachText attach_to_num, series_num, point_num
xlDialogAttachToolbars
xlDialogAutoCorrect correct_initial_caps, capitalize_days
xlDialogAxes x_primary, y_primary, x_secondary, y_secondary
xlDialogAxes x_primary, y_primary, z_primary
xlDialogBorder outline, left, right, top, bottom, shade, outline_color, left_color, right_color, top_color, bottom_color
xlDialogCalculation type_num, iter, max_num, max_change, update, precision, date_1904, calc_save, save_values, alt_exp, alt_form
xlDialogCellProtection locked, hidden
xlDialogChangeLink old_text, new_text, type_of_link
xlDialogChartAddData ref, rowcol, titles, categories, replace, series
xlDialogChartTrend type, ord_per, forecast, backcast, intercept, equation, r_squared, name
xlDialogChartWizard long, ref, gallery_num, type_num, plot_by, categories, ser_titles, legend, title, x_title, y_title, z_title, number_cats, number_titles
xlDialogCheckboxProperties value, link, accel_text, accel2_text, 3d_shading
xlDialogClear type_num
xlDialogColorPalette file_text
xlDialogColumnWidth width_num, reference, standard, type_num, standard_num
xlDialogCombination type_num
xlDialogConsolidate source_refs, function_num, top_row, left_col, create_links
xlDialogCopyChart size_num
xlDialogCopyPicture appearance_num, size_num, type_num
xlDialogCreateNames top, left, bottom, right
xlDialogCreatePublisher file_text, appearance, size, formats
xlDialogCustomizeToolbar category
xlDialogDataDelete
xlDialogDataLabel show_option, auto_text, show_key
xlDialogDataSeries rowcol, type_num, date_num, step_value, stop_value, trend
xlDialogDefineName name_text, refers_to, macro_type, shortcut_text, hidden, category, local
xlDialogDefineStyle style_text, number, font, alignment, border, pattern, protection
xlDialogDefineStyle style_text, attribute_num, additional_def_args, ...
xlDialogDeleteFormat format_text
xlDialogDeleteName name_text
xlDialogDemote row_col
xlDialogDisplay formulas, gridlines, headings, zeros, color_num, reserved, outline, page_breaks, object_num
xlDialogDisplay cell, formula, value, format, protection, names, precedents, dependents, note
xlDialogEditboxProperties validation_num, multiline_logical, vscroll_logical, password_logical
xlDialogEditColor color_num, red_value, green_value, blue_value
xlDialogEditDelete shift_num
xlDialogEditionOptions edition_type, edition_name, reference, option, appearance, size, formats
xlDialogEditSeries series_num, name_ref, x_ref, y_ref, z_ref, plot_order
xlDialogErrorbarX include, type, amount, minus
xlDialogErrorbarY include, type, amount, minus
xlDialogExtract unique
xlDialogFileDelete file_text
xlDialogFillGroup type_num
xlDialogFillWorkgroup type_num
xlDialogFilterAdvanced operation, list_ref, criteria_ref, copy_ref, unique
xlDialogFindFile
xlDialogFont name_text, size_num
xlDialogFontProperties font, font_style, size, strikethrough, superscript, subscript, outline, shadow, underline, color, normal, background, start_char, char_count
xlDialogFormatAuto format_num, number, font, alignment, border, pattern, width
xlDialogFormatChart layer_num, view, overlap, angle, gap_width, gap_depth, chart_depth, doughnut_size, axis_num, drop, hilo, up_down, series_line, labels, vary
xlDialogFormatCharttype apply_to, group_num, dimension, type_num
xlDialogFormatFont color, backgd, apply, name_text, size_num, bold, italic, underline, strike, outline, shadow, object_id, start_num, char_num
xlDialogFormatFont name_text, size_num, bold, italic, underline, strike, color, outline, shadow
xlDialogFormatFont name_text, size_num, bold, italic, underline, strike, color, outline, shadow, object_id_text, start_num, char_num
xlDialogFormatLegend position_num
xlDialogFormatMain type_num, view, overlap, gap_width, vary, drop, hilo, angle, gap_depth, chart_depth, up_down, series_line, labels, doughnut_size
xlDialogFormatMove x_offset, y_offset, reference
xlDialogFormatMove x_pos, y_pos
xlDialogFormatMove explosion_num
xlDialogFormatNumber format_text
xlDialogFormatOverlay type_num, view, overlap, gap_width, vary, drop, hilo, angle, series_dist, series_num, up_down, series_line, labels, doughnut_size
xlDialogFormatSize width, height
xlDialogFormatSize x_off, y_off, reference
xlDialogFormatText x_align, y_align, orient_num, auto_text, auto_size, show_key, show_value, add_indent
xlDialogFormulaFind text, in_num, at_num, by_num, dir_num, match_case, match_byte
xlDialogFormulaGoto reference, corner
xlDialogFormulaReplace find_text, replace_text, look_at, look_by, active_cell, match_case, match_byte
xlDialogFunctionWizard
xlDialogGallery3dArea type_num
xlDialogGallery3dBar type_num
xlDialogGallery3dColumn type_num
xlDialogGallery3dLine type_num
xlDialogGallery3dPie type_num
xlDialogGallery3dSurface type_num
xlDialogGalleryArea type_num, delete_overlay
xlDialogGalleryBar type_num, delete_overlay
xlDialogGalleryColumn type_num, delete_overlay
xlDialogGalleryCustom name_text
xlDialogGalleryDoughnut type_num, delete_overlay
xlDialogGalleryLine type_num, delete_overlay
xlDialogGalleryPie type_num, delete_overlay
xlDialogGalleryRadar type_num, delete_overlay
xlDialogGalleryScatter type_num, delete_overlay
xlDialogGoalSeek target_cell, target_value, variable_cell
xlDialogGridlines x_major, x_minor, y_major, y_minor, z_major, z_minor, 2D_effect
xlDialogInsert shift_num
xlDialogInsertObject object_class, file_name, link_logical, display_icon_logical, icon_file, icon_number, icon_label
xlDialogInsertPicture file_name, filter_number
xlDialogInsertTitle chart, y_primary, x_primary, y_secondary, x_secondary
xlDialogLabelProperties accel_text, accel2_text, 3d_shading
xlDialogListboxProperties range, link, drop_size, multi_select, 3d_shading
xlDialogMacroOptions macro_name, description, menu_on, menu_text, shortcut_on, shortcut_key, function_category, status_bar_text, help_id, help_file
xlDialogMailEditMailer to_recipients, cc_recipients, bcc_recipients, subject, enclosures, which_address
xlDialogMailLogon name_text, password_text, download_logical
xlDialogMailNextLetter
xlDialogMainChart type_num, stack, 100, vary, overlap, drop, hilo, overlap%, cluster, angle
xlDialogMainChartType type_num
xlDialogMenuEditor
xlDialogMove x_pos, y_pos, window_text
xlDialogNew type_num, xy_series, add_logical
xlDialogNote add_text, cell_ref, start_char, num_chars
xlDialogObjectProperties placement_type, print_object
xlDialogObjectProtection locked, lock_text
xlDialogOpen file_text, update_links, read_only, format, prot_pwd, write_res_pwd, ignore_rorec, file_origin, custom_delimit, add_logical, editable, file_access, notify_logical, converter
xlDialogOpenLinks document_text1, document_text2, ..., read_only, type_of_link
xlDialogOpenMail subject, comments
xlDialogOpenText file_name, file_origin, start_row, file_type, text_qualifier, consecutive_delim, tab, semicolon, comma, space, other, other_char, field_info
xlDialogOptionsCalculation type_num, iter, max_num, max_change, update, precision, date_1904, calc_save, save_values
xlDialogOptionsChart display_blanks, plot_visible, size_with_window
xlDialogOptionsEdit incell_edit, drag_drop, alert, entermove, fixed, decimals, copy_objects, update_links, move_direction, autocomplete, animations
xlDialogOptionsGeneral R1C1_mode, dde_on, sum_info, tips, recent_files, old_menus, user_info, font_name, font_size, default_location, alternate_location, sheet_num, enable_under
xlDialogOptionsListsAdd string_array
xlDialogOptionsListsAdd import_ref, by_row
xlDialogOptionsTransition menu_key, menu_key_action, nav_keys, trans_eval, trans_entry
xlDialogOptionsView formula, status, notes, show_info, object_num, page_breaks, formulas, gridlines, color_num, headers, outline, zeros, hor_scroll, vert_scroll, sheet_tabs
xlDialogOutline auto_styles, row_dir, col_dir, create_apply
xlDialogOverlay type_num, stack, 100, vary, overlap, drop, hilo, overlap%, cluster, angle, series_num, auto
xlDialogOverlayChartType type_num
xlDialogPageSetup head, foot, left, right, top, bot, hdng, grid, h_cntr, v_cntr, orient, paper_size, scale, pg_num, pg_order, bw_cells, quality, head_margin, foot_margin, notes, draft
xlDialogPageSetup head, foot, left, right, top, bot, size, h_cntr, v_cntr, orient, paper_size, scale, pg_num, bw_chart, quality, head_margin, foot_margin, draft
xlDialogPageSetup head, foot, left, right, top, bot, orient, paper_size, scale, quality, head_margin, foot_margin, pg_num
xlDialogParse parse_text, destination_ref
xlDialogPasteSpecial paste_num, operation_num, skip_blanks, transpose
xlDialogPasteSpecial rowcol, titles, categories, replace, series
xlDialogPasteSpecial paste_num
xlDialogPasteSpecial format_text, pastelink_logical, display_icon_logical, icon_file, icon_number, icon_label
xlDialogPatterns apattern, afore, aback, newui
xlDialogPatterns lauto, lstyle, lcolor, lwt, hwidth, hlength, htype
xlDialogPatterns bauto, bstyle, bcolor, bwt, shadow, aauto, apattern, afore, aback, rounded, newui
xlDialogPatterns bauto, bstyle, bcolor, bwt, shadow, aauto, apattern, afore, aback, invert, apply, newfill
xlDialogPatterns lauto, lstyle, lcolor, lwt, tmajor, tminor, tlabel
xlDialogPatterns lauto, lstyle, lcolor, lwt, apply, smooth
xlDialogPatterns lauto, lstyle, lcolor, lwt, mauto, mstyle, mfore, mback, apply, smooth
xlDialogPatterns type, picture_units, apply
xlDialogPivotFieldGroup start, end, by, periods
xlDialogPivotFieldProperties name, pivot_field_name, new_name, orientation, function, formats
xlDialogPivotFieldUngroup
xlDialogPivotShowPages name, page_field
xlDialogPivotTableWizard type, source, destination, name, row_grand, col_grand, save_data, apply_auto_format, auto_page, reserved
xlDialogPlacement placement_type
xlDialogPrint range_num, from, to, copies, draft, preview, print_what, color, feed, quality, y_resolution, selection, printer_text, print_to_file, collate
xlDialogPrinterSetup printer_text
xlDialogPrintPreview
xlDialogPromote rowcol
xlDialogProperties title, subject, author, keywords, comments
xlDialogProtectDocument contents, windows, password, objects, scenarios
xlDialogPushbuttonProperties default_logical, cancel_logical, dismiss_logical, help_logical, accel_text, accel_text2
xlDialogReplaceFont font_num, name_text, size_num, bold, italic, underline, strike, color, outline, shadow
xlDialogRoutingSlip recipients, subject, message, route_num, return_logical, status_logical
xlDialogRowHeight height_num, reference, standard_height, type_num
xlDialogRun reference, step
xlDialogSaveAs document_text, type_num, prot_pwd, backup, write_res_pwd, read_only_rec
xlDialogSaveCopyAs document_text
xlDialogSaveNewObject
xlDialogSaveWorkbook document_text, type_num, prot_pwd, backup, write_res_pwd, read_only_rec
xlDialogSaveWorkspace name_text
xlDialogScale cross, cat_labels, cat_marks, between, max, reverse
xlDialogScale min_num, max_num, major, minor, cross, logarithmic, reverse, max
xlDialogScale cat_labels, cat_marks, reverse, between
xlDialogScale series_labels, series_marks, reverse
xlDialogScale min_num, max_num, major, minor, cross, logarithmic, reverse, min
xlDialogScenarioAdd scen_name, value_array, changing_ref, scen_comment, locked, hidden
xlDialogScenarioCells changing_ref
xlDialogScenarioEdit scen_name, new_scenname, value_array, changing_ref, scen_comment, locked, hidden
xlDialogScenarioMerge source_file
xlDialogScenarioSummary result_ref, report_type
xlDialogScrollbarProperties value, min, max, inc, page, link, 3d_shading
xlDialogSelectSpecial type_num, value_type, levels
xlDialogSendMail recipients, subject, return_receipt
xlDialogSeriesAxes axis_num
xlDialogSeriesOrder chart_num, old_series_num, new_series_num
xlDialogSeriesX x_ref
xlDialogSeriesY name_ref, y_ref
xlDialogSetControlValue value
xlDialogSetPrintTitles titles_for_cols_ref, titles_for_rows_ref
xlDialogSetUpdateStatus link_text, status, type_of_link
xlDialogShowDetail rowcol, rowcol_num, expand, show_field
xlDialogShowToolbar bar_id, visible, dock, x_pos, y_pos, width, protect, tool_tips, large_buttons, color_buttons
xlDialogSize width, height, window_text
xlDialogSort orientation, key1, order1, key2, order2, key3, order3, header, custom, case
xlDialogSort orientation, key1, order1, type, custom
xlDialogSortSpecial sort_by, method, key1, order1, key2, order2, key3, order3, header, order, case
xlDialogSplit col_split, row_split
xlDialogStandardFont name_text, size_num, bold, italic, underline, strike, color, outline, shadow
xlDialogStandardWidth standard_num
xlDialogStyle bold, italic
xlDialogSubscribeTo file_text, format_num
xlDialogSubtotalCreate at_change_in, function_num, total, replace, pagebreaks, summary_below
xlDialogSummaryInfo title, subject, author, keywords, comments
xlDialogTable row_ref, column_ref
xlDialogTabOrder
xlDialogTextToColumns destination_ref, data_type, text_delim, consecutive_delim, tab, semicolon, comma, space, other, other_char, field_info
xlDialogUnhide window_text
xlDialogUpdateLink link_text, type_of_link
xlDialogVbaInsertFile filename_text
xlDialogVbaMakeAddin filename_text
xlDialogVbaProcedureDefinition
xlDialogView3d elevation, perspective, rotation, axes, height%, autoscale
xlDialogWindowMove x_pos, y_pos, window_text
xlDialogWindowSize width, height, window_text
xlDialogWorkbookAdd name_array, dest_book, position_num
xlDialogWorkbookCopy name_array, dest_book, position_num
xlDialogWorkbookInsert type_num
xlDialogWorkbookMove name_array, dest_book, position_num
xlDialogWorkbookName oldname_text, newname_text
xlDialogWorkbookNew
xlDialogWorkbookOptions sheet_name, bound_logical, new_name
xlDialogWorkbookProtect structure, windows, password
xlDialogWorkbookTabSplit ratio_num
xlDialogWorkbookUnhide sheet_text
xlDialogWorkgroup name_array
xlDialogWorkspace fixed, decimals, r1c1, scroll, status, formula, menu_key, remote, entermove, underlines, tools, notes, nav_keys, menu_key_action, drag_drop, show_info
xlDialogZoom magnification
In deinem Fall muesste es xlDialogPageSetup sein...
Gruss

Tobias
Bild

Betrifft: AW: Nachtrag
von: Holger Wächter
Geschrieben am: 04.04.2005 14:22:51
Hallo,
das war es. Danke. Jetzt kann ich mir da was zusammenbauen.
Nur noch eine Hilfe wäre nicht schlecht. Hatte xlDialogPrintPreview ausgeführt. Jetzt sehe ich im Vordergrund meine Userform und im Hintergrund das Druckvorschaubild. Und kann nichts mehr anklicken. Kennst Du was womit ich abbrechen kann? Mit Ctrl+Break geht es nicht. Mist. Wäre gut wenn Du was weisst.
MfG
Holger Wächter
Bild

Betrifft: AW: Nachtrag
von: Tobias Marx
Geschrieben am: 04.04.2005 14:25:15
Servus!
Also ich hab das immer mit einem Me.Hide umgangen, einfach fuer den gewuenschten Zeitraum die Userform ausblenden.
Gruss

Tobias
Bild

Betrifft: AW: Nachtrag
von: Holger Wächter
Geschrieben am: 04.04.2005 14:27:28
Ja nur das Problem ist. Ich kann den Code sehen, ich kann die Userform sehen, aber ich kann nichts anklicken oder einen Code eingeben! Sonst habe ich immer abgebrochen mit Ctrl+Break.
Der hängt irgendwie...
Weist Du was...
Bild

Betrifft: AW: Nachtrag
von: Tobias Marx
Geschrieben am: 04.04.2005 14:40:47
Sorry, da kann ich dir dann auch nicht mehr weiterhelfen, habs bei mir versucht (Excel 97) und da gings ohne Probleme ueber ne Userform aufzurufen und war dann auch im Vordergrund.
Versuchs doch mal mit der Recherche, evtl. hatte ausser dir auch noch jemand anders dasselbe Problem...

Gruss

Tobias
Bild

Betrifft: AW: Nachtrag
von: Holger Wächter
Geschrieben am: 04.04.2005 14:47:28
Trotzdem vielen dank.
Werde jetzt Excel schliessen. Ist auch nicht soviel arbeit die weg ist. Die Hilfe von Dir werde ich dann einbauen.
MfG
Holger Wächter
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Druckertypen in Combobox zur Auswahl"